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IF YOU LIKED OUR 
POOL 1.5, YOU'LL 
LOVE TRICK SHOT! 

* Watch for the "GREAT TRICK 
SHOT TOURNAMENT" 







FOR YOUR 
APPLE 



P.O.BOX 1658 
LASCRUCES,NM 
88004 505-522-7373 




JUDGE THE REST, THEN BUY THE BEST 

Only GIMIX offers you SOFTWARE SWITCHING between MICROWARE's OS-9 and TSC's 

FLEX; Plus you get the power of the GMXBUG system monitor with its advanced debugging 
utility, and memory manipulation routines. A wide variety of languages and other software is 
available for these two predominant 6809 Disk Operating Systems. 

You can order a system to meet your needs, or select from the 6809 Systems featured below. 

JUDGE THE FEATURES AND QUALITY OF GIMIX 6809 SYSTEMS 

GIMIX' CLASSY CHASSIS'" is a heavyweighl aluminum mainlrame cabinet with back panel cutouts to conveniently connect your terminals, printers, drives, monitors, 
etc. A 3 position keyswitch lets you lock out the reset switch. The power supply leatures a terro-resonant constant voltage transformer that supplies 8V at 30 amps. + 15V at 
5 amps, and - 15V at 5 amps to insure against problems caused by adverse power input conditions. It supplies power tor all the boards in a fully loaded system plus two 
5 Vi " drives (yes! even a Winchester! that can be installed in the cabinet. The Mother board has titteen 50 pin and eight 30 pin slots to give you the most room tor expansion 
of any SS50 system available. 1 1 standard baud rates from 75 to 38. 4K are provided and the I / section has its own extended addressing to permit the maximum memory 
address space to be used. The 2 Mhz 6809 CPU card has both a time ot day clock with battery back-up and a 6840 programmable timer. It also contains 1K RAM, 4 
PR0M/R0M/RAM sockets, and provides for an optional 951 1A or 951 2 Arithmetic Processor. The RAM boards use high speed, low power STATIC memory that is fully com- 
patible with any DMA technique. STATIC RAM requires no refresh timing, no wait states or clock stretching, and allows fast, reliable operation. The system includes a 2 port 
RS232 serial interface and cables. All GIMIX boards use gold plated bus connectors and are fully socketed. GIMIX designs, manufactures, and tests in-house its complete 
line of products. All boards are twice tested, and burned in electrically to insure reliability and freedom from inlant mortality of component parts. All systems are assembled 
and then retested as a system after being configured to your specific order. 

56KB 2MHZ 6809 SYSTEMS WITH GMXBUX/FLEX/OS-9 SOFTWARE SELECTABLE 

With #58 single density disk controller $2988.59 

With #68 DMA double density disk controller $3248.49 

to substitute Non-volatile CMOS RAM with battery back-up, add 300.00 

for 50 Hz export power supply models, add 30.00 

Either controller can be used with any combination of 5" and/or 8" drives, up to 4 drives total, have data recovery 
circuits (data separators), and ire designed to fully meet the timing requirements of the controller I.C.s. 

5 Va" DRIVES INSTALLED IN THE ABOVE with all necessary cables 

SINGLE D ENSITY DOUBLE DENSITY 

matted Formatted Unformatted 

Chart shows total 
capacity in Bytes tor 
2 drives. 

Contact GIMIX for price and availability ol 8" floppy disk drives and cabinets; and 5" and 8" Winchester hard disk system. 

128KB 2Mhz 6809 DMA Systems for use with TSC's UNIFLEX or MICROWARES's OS-9 Level 2 

(Software and drives not included) $3798.39 

to substitute 128KB CMOS RAM with battery back-up, add 600.00 

for each additional 64KB NMOS STATIC RAM board, add 639.67 

for each additional 64KB CMOS STATIC RAM board, add 988.64 

for 50 Hz export power supply, add 30.00 

NOTE: UNIFLEX can not be used with 5" minifloppy drives. 

GIMIX has a wide variety ol RAM. ROM. Serial and Parallel I/O. Video, Graphics, and other SS50 bus cards that 

can be added now or in the future. Phone or write for more complete information and brochure. 

THE SUN NEVER SETS ON GIMIX USERS 

GIMIX Systems are found on every continent, except Antarctica. (Any users there? If so, please contact GIMIX so we can 
change this.) A representative group of GIMIX users includes: Government Research and Scientific Organizations in 
Australia, Canada, U.K., and in the U.S.; NASA, Oak Ridge, White Plains, Fermilab, Argonne, Scripps, Sloan Kettering, 
Los Alamos National Labs, AURA. Universities: Carleton. Waterloo, Royal Military College, in Canada; Trier in Germany; and 
in the U.S.; Stanford. SUNY, Harvard, UCSO, Mississippi, Georgia Tech. Industrial users in Hong Kong, Malaysia, South 
Africa, Germany. Sweden, and in the U.S.; GTE, Becton Dickinson, American Hoechst, Monsanto, Allied, Honeywell. Perkin 
Elmer, Johnson Controls, Associated Press, Aydin, Newkirk Electric, Revere Sugar. HI-G/AMS Controls, Chevron. Computer 
mainframe and peripheral manufacturers, IBM, OKI, Computer Peripherals Inc., Oume, Floating Point Systems. Software 
houses; Microware, T.S.C.. Lucidata, Norpak. Talbot, Stylo Systems. AAA. HHH, Frank Hogg Labs, Epstein Associates. 
Softwest, Dynasoft, Research Resources U.K., Microworks, Analog Systems, Computerized Business Systems. 

GIMIX Systems are chosen by the Pros 
because of quality, reliability and features. 

Gimix 

The Company that delivers 

Quality Electronic products since 1975. 

1337 WEST 37th PLACE, CHICAGO, IL 60609 
(312)927-5510 • TWX 910-221-4055 



40 track (48TPII single sided 
40 track (48TPI) double sided 
80 track (96TPII single 
80 Irack (96TPI) double 


Formatted 
199,680 
399.360 
404.480 
808.960 


Unformatted 
250.000 
500.000 
500.000 

l. 000.000 


Formatted 
341.424 
718,848 
728,064 

1.456,128 


Unformatted 
500,000 
1,000.000 
1.000.000 
2.000.000 


2 lor $700.00 
2 for 900.00 
2 lor 900.00 
2 for 1300.00 




TO ORDER BY MAIL 
SEND CHECK OR MONEY ORDER OR USE YOUR VISA OR MASTER CHARGE Please am 3 weeks tor persona) checks 10 Clear 
US orders adrj SS handling ri order s under $200 00. Foragn orders add SiO handling rf order is under $200.00 
Foreign orders over $200 00 will be shooed .v. Emery Air Freignt COLLECT, and we will charge no handfcng All orders most be prepaid in US 
funds Please no© mat torenjn checks have been teking about 8 weeks lor collection so we wcuC actase wiring money, or checks drawn on a 
Dank account In the U S Our bank ts the Continental Illinois Manorial Bank of Chicago, account 173-32033 Visa or Master Charge atso accepted 
GIMIX INC reserves the right to change prong and product specifications at any time without further notice 
are registered trademarks of GiMix inc 

FLEX AND UrvHex are trademarks of Techncal Systems 

Consultants inc OS-9 s a trademark of Mcroware Inc See the* aas for 

other GIMIX compatible software 
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C.O.R.P. writes 

software. Perhaps 

you should read that 

again. Not "simplifies 

programming" or "makes 

debugging easier." C.O.R.P. 

writes APPLESOFT BASIC— 

complete, stand-alone programs 

which run. bug-free, the very first time. 

You need not type a single character of 

basic code — ever. C.O.R.P. does that. Your 

answers to questions in simple English "design" the 

program. In minutes, C.O.R.P. writes all the program 

code, scrolls it to the screen and automatically saves it 

to your disk. Your program because you designed it. Once 

written, your program runs without C.O.R.P. You may list your 

program, examine it, modify it further or even sell it— as you wish, 

royalty free. No mere "data base manager," at any price, will do that. 

The applications are almost limitless. Your C.O.R.P. program 

Generation System will: • handle nearly as much data as your disks will 

hold(1 13K per disk!) • find any record in less than a second • let you design your 

own screens as quickly as you can move the curser around • sort, re-sort and update 

your data for you • examine and re-examine your data and then print reports, checks, 

invoices, statements, mailing labels, lists, memos— you name it. C.O.R.P. allows you to 

use your Apple 1 1 plus as the working tool it really is. Isn't that why you bought one? 

Computers should write code. You should design programs. Now you have the power. 




rrs 




C.O.R.P. is a trade mark of 
Maromaty Scotto Software Corporation. 



CORTECHS CORPORATION 

900 North Franklin, Chicago, Illinois 60610 
See your dealer today or call toll-free . . . 



C.O.D. welcome. 



C.O.R.P. I features: 
• a data entry program generator 
• a full sort sub-system • an update sub- 
system • a full diagnostic package • a print 
program generator . . . $235. - , 

Dealer inquiries welcome. I ~oi 



C.O.R.P. 



09 



CORP. II features: 
• all of C.O.R.P. I plus: • a system 
menu generator • a complete forms 
letter • a full files editor • a system demo 

package • an Applesoft tutorial . . . $425. 
(In Illinois, call (312) 943-0700 



MICRO - The 6502/6809 Journal 



No. 46 -March 1982 



NO. 46 



MARCH 1982 



STAFF 

President/Editor-in-Chief 
ROBERT M. TRIPP 

Publisher 

MARY GRACE SMITH 

Senior Editor 
LAURENCE KEPPLE 

Editors 

MARY ANN CURTIS 
MARJORIE MORSE 
LOREN WRIGHT 

Production Manager 
PAULA M. KRAMER 

Typesetting 

EMMALYN H. BENTLEY 

Advertising Manager 
CATHI BLAND 

Circulation Manager 
CAROL A. STARK 

Dealer Orders 
LINDA HENSDILL 

Comptroller 
DONNA M. TRIPP 

Bookkeeper 
KAY COLLINS 

Advertising 

Sales Representative 

KEVIN B. RUSHALKO 

603/547-2970 



DEPARTMENTS 

5 Editorial 

6 New Publications 
31 From Here to Atari 
35 Short Subjects 

49 Microbes and Updates 

71 The Single Life 

98 PET Vet 
100 Software Catalog 
105 Hardware Catalog 
117 Bibliography 
121 Data Sheet 
125 It's All Ones and Zeros 

127 Advertiser's Index 

128 Next Month in MICRO 




THE 6502/6809 JOURNAL 



MATH APPLICATIONS 
9 



13 
21 
24 



VisiCalc Formulas for Depreciation KimQ. woodward 

Ready-to-use formulas provide three methods of depreciation 

Numerical Solution of Differential Equations Robert d. Walker 
Runge-Kutta method and Applesoft program help you solve equations 

Legrange Interpolating Polynomial Paul H. Muiier 

This helpful routine will run on any machine with floating point BASIC 



SIN(X)The Hard Way 

Learn how the in-ROM machine language routine works 



Earl Morris 



OSI BASIC 

07 A Cross Reference Generator for OSI BASIC John Krout 

*■* ' Find any variable or line number in your OSI BASIC program 

AO More Hooks into OSI BASIC Richard L Trethewey 

^° Add keywords to BASIC under OS-65D V3.2 

K-f Microsoft BASIC-in-ROM Extensions Michael M. Mahoney 

,J ' PRINT AT and CALL functions are added to BASIC-in-ROM 

c -\ Machine Language to DATA Statement Generator Yasuo Monshita 

'"' ' This handy routine can be applied to all OSI BASIC-in-ROM machines 

C7 Autonumber Plus for Cursor Control Kerry Lourash 

*■' ' Add automatic line numbering and PRINT AT to your cursor control program 

UTILITIES 

77 KIM Bouncy Keypad Cure Jody Nelis 

' ' This 94-byte program prolongs the life of your bouncy keypad 

00 Binary Storage and Array Retrieval Hank Biakeiy 

^^ A technique for extremely fast I/O of arrays on disk is presented 

QQ A Disassembler for the 6809 Mark J. Borgerson 

This disassembler is written in Microsoft BASIC and will run on the Apple II or 
the Radio Shack Color Computer 

HARDWARE 

•\C\~7 PET Audible Disk Alarm John e. Girard 

' ^ ' This simple enhancement sounds an alarm when a disk error occurs 

H -i -J I/O Expansion for AIM Gary Finley 

1 ' I Add two VIAs to triple I/O capacity 
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THE CHIEFTAIN 5/4-INCH WINCHESTER 

HARD DISK COMPUTER 





SO ADVANCED IN SO MANY WAYS . . . 

AND SO COST-EFFECTIVE . . . 

IT OBSOLETES MOST OTHER SYSTEMS 

AVAILABLE TODAY AT ANY PRICE. 



• HARD DISK SYSTEM CAPACITY 

The Chieftain series includes 5'A- and 8-inch 
Winchesters that range from 4- to 60- 
megabyte capacity, and higher as technology 
advances. All hard disk Chieftains include 
64-k memory with two serial ports and 
DOS69D disk operating system. 

• LIGHTNING ACCESS TIME 

Average access time for 5!4-inch Winchesters 
is 70-msec, comparable to far more costly 
hard disk systems. That means data transfer 
ten-times faster than floppy disk systems. 



The Chieftain 
Computer Systems: 



Here are the Chieftain 6809-based 
hard disk computers that are destined 
to change data processing . . . 



• 2-MHZ OPERATION 

All Chieftains operate at 2-MHz, regardless 
of disk storage type or operating system 
used. Compare this to other hard disk 
systems, no matter how much they cost! 

• DMA DATA TRANSFER 

DMA data transfer to-and-from tape and disk 
is provided for optimum speed, A special 
design technique eliminates the necessity 
of halting the processor to wait for data 
which normally transfers at a slower speed, 
determined by the rotational velocity of 
the disk, 

• RUINS UNDER DOS OR OS-9 

ho matter which Chieftain you select . . . 
5'/i- or 8-inch floppy, or 5'A- or 8-inch 



Winchester with tape or floppy back-up . . . 
they all mn under DOS or OS-9 with 
no need to modify hardware or software. 

• UNBOUNDED FLEXIBILITY 

You'll probably never use it, but any Chieftain 
hard disk system can drive up to 20 other 
Winchesters, and four tape drives, with a 
single DMA interface board! 

• SMOKE SIGNAL'S HERITAGE OF 
EXCELLENCE 

This new-generation computer is accompa- 
nied by the same Endurance-Certified 
quality Dealers and end-users all over the 
world have come to expect from Smoke 
Signal. And support, software selection and 
extremely competitive pricing are very much 
a part of that enviable reputation. 



□ 
□ 
□ 
□ 



CHIEFTAIN 95W4 

4-megabyte. 5M-inch Winchester with 
a 360-k floppy disk drive (pictured). 

CHIEFTAIN 95XW4 

4-megabyte. 5'A-inch Winchester with 
a 750-k octo-density floppy disk drive. 

CHIEFTAIN 98W15 

15-megabyte. S'A-inch Winchester with 
a I -megabyte 8-inch floppy disk drive. 

CHIEFTAIN 9W15T20 

15-megabyte, 5'/4-inch Winchester with 
a 20-megabyte tape streamer. 



20-Megabyte Tape Streamer Back-Up Option 



Available with all Chieftain hard 
disk configurations. This 
cartridge tape capability 
provides full 20-megabyte 
disk back-up in less than five 
minutes with just one 
command, or copy com- 
mand for individual file 
transfers. Transfers data 
tape-to- disk or disk-to- 
tape. Floppy back-up is 
also available in a variety 
of configurations. 





Write or call today for details (including the low prices) 
on the Chieftain Series. . . and on dealership opportunities 
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SMOKE SIGNAL BROADCASTING® 

31336 VIA COLINAS 
WESTLAKE VILLAGE, CA 91362 
TEL (213) 889-9340 
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LATITUDE 



This month's cover photo brings us 
to the Homecoming '81 bonfire at 
Dartmouth College, the birthplace of 
BASIC. BASIC, one of the world's most 
popular programming languages, is the 
most important language in micro- 
computing since it is supplied with 
every microcomputer. 

The graphic overlay was generated 
by the program "Glacier" which 
calculates surface temperatures by 
latitude. | "Glacier" by Compress, 
Inc., Wentworth, N.H.) 

Cover photo by Ford Cavallari 
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Editorial 



Hello, OSI? 

What is OSI doing with its line of per- 
sonal computers? A simple question, but 
even OSI can't seem to answer it — yet. 

For months now we've been receiving 
letters from frustrated OSI users who 
wonder why we don't cover OSI 
machines more thoroughly (more than 
30% of our readers are OSI users). 
These same readers also ask why OSI 
isn't advertising, and why OSI support 
in general seems to be fading. We decided 
to see how much of the fog could be 
cleared away. 

Contacting OSI was naturally the 
first step, but not necessarily the 
easiest or most informative. One OSI 
source admitted that the company is 
beginning to stress the business line 
rather than the home market. Accord- 
ing to this source, OSI is considering 
the elimination of the C1P and Super- 
board product lines. However, other of- 
ficials insisted that no firm decision 
had been made yet. 

Another view held by knowledge- 
able sources inside and outside OSI is 
that the company will sell off their low- 
end computer line rather than ter- 
minate it completely. OSI, according to 
these sources, would not want to leave 
owners of these products in the lurch. 
To sum up the problem, an OSI mar- 
keting official admitted that, for now, 
the situation regarding their line of per- 
sonal computers is "up in the air." 

Several factors can help account for 
this confusion. Much of OSI's staff has 
been busy lately, not only with de- 
ciding the fate of the personal computer 
line, but with moving operations from 
Ohio to Massachusetts. OSI was pur- 
chased in December 1980 by a Massa- 
chusetts-based firm, M/A COM, and 
the transition is still in progress. Also, 
preparations for an upcoming distribu- 
tor's meeting in Florida are tying up 
key OSI officials. 



The distributor's meeting (which 
will have occurred by the time this 
issue is published) will include a 
presentation of new systems. OSI's re- 
cent lack of advertising can be explained 
partially by their need to wait until 
after the meeting to announce new pro- 
ducts to the general public. 

Several OSI dealers offered a variety 
of insights into the OSI personal com- 
puter problem. Although one dealer 
was optimistic and believed that OSI 
was "getting its act together," another 
considered the company "schizo- 
phrenic" and said that he thought OSI 
was "dumping the personal computer 
market." The general consensus 
among dealers is that OSI is developing 
a new line of computers aimed at the 
business instead of the hobbyist 
market. 

One optimistic dealer said that the 
OSI personal computers will develop 
into a "nice market in spite of OSI." 
He believed this will be possible 
because other manufacturers will offer 
OSI-compatible hardware support. 

Customer service has always been 
an issue for OSI users. According to one 
dealer, OSI has regarded customer ser- 
vice as a dealer obligation. But, since 
service is rarely a lucrative business, 
many dealers choose not to provide it. 
Therefore OSI users are neglected. In 
addition, some dealers are understand- 
ably reluctant to sell OSI personal com- 
puter products because of the uncer- 
tainty and confusion. 

Although all the questions haven't 
been answered, and some of the an- 
swers we did receive are vague, we 
believe users will soon have a clearer 
picture of OSI's personal computer 
plans. We'll keep you informed as best 
we can. 
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New Publications 



Reference 

The Index, The ultimate information 
index for all personal computer users, 

W.H. Wallace, Indexor. Missouri In- 
dexing, Inc. (P.O. Box 301, St. Ann, 
MO 63074), 1981, iii, 489 pages, 5V4 x 
814 inches, paperbound. 

$14.95 

Here you'll find more than 30,000 en- 
tries covering over six years of articles, 
editorials, and columns from 45 com- 
puter publications. There are fourteen 
system-specific sub-indexes. All ar- 
ticles are listed alphabetically, along 
with the author, magazine and issue in 
which it appeared. 

CONTENTS: Introduction-, How to Use the 
Index; Apple Articles; Atari Articles-. CP/M 
Articles; North Star Articles; Ohio Scien- 
tific Articles; PET Articles; Southwestern 
Technical Products Articles-, S- 100 Articles-, 
TRS-80 Articles; Z-80 Articles; 6502 Ar- 
ticles; 6800 Articles; 8080 Articles; General 
Articles; Magazine/Newsletter Abbrevia- 
tions and Ordering Information. 

General 

Introduction to Word Processing by Hal 

Glatzer. Sybex Inc. (2344 Sixth St., 
Berkeley, CA 94710), 1981, xiv, 210 
pages, 6x9 inches, paperbound. 
ISBN: 0-89588-076-8 $12.95 

Learn what a word processor is, what it 
does, how to use one, and how to 
choose one. The author also provides a 
feature-by-feature comparative analysis 
of currently available equipment. 

CONTENTS: What Word Processors Can 
Do For you— Why Doesn't Everybody Have 
One? What Do People Want? Will a Word 
Processor Help? What The Newspapers 
Learned— Getting the Lead Out; The Com- 
puters Arrive; The Price of Freedom; Em- 
bracing the Copper Wire. Why Secretaries 
Are Going Back To School— Word Process- 
ing Is Only the Beginning; "The £12 Look"; 
Larger Files in Smaller Cabinets; Will 
Machines Replace People? How To Teach A 
Small Computer Big Tricks — Game Players 
Are Computer Operators; Where Does Word 
Processing Come In? Which Type of Word 
Processor Is Best! — Electronic Typewriters; 
Stand-Alone Machines; Microcomputers; 
Mainframe and Minicomputers; There Is 
No One Solution; Benchmark Test. Writing 
And Editing With A Word Processor- 
Writing; Editing. How To Manage Your 



Files— About Bytes; Storage Devices; Elec- 
tronic Filing. Formatting What You Write— 
Previewing; Basic Formatting; Advanced 
Formatting. Putting Text On Paper— Print- 
ing; Printer Enhancements. Extending Your 
Reach — Typesetting; Computer-Output 
Microfilm (COM); Optical Character 
Recognition (OCR); Multiple Work Sta- 
tions; Telecommunications. Will A Word 
Processor Pay For Itselff — Comparing 
Costs; Holding Down Costs; Becoming A 
Customer; Avoiding Costly Problems. How 
To Get Hands-On Experience— Do Your 
Homework; Meet The People; How To 
Select A Vendor; In Conclusion. Appendix: 
Where To Go For More Information. 
Glossary. Index. Library. 

6502 

Beyond Games: Systems Software for 
Your 6502 Personal Computer by Ken 

Skier. BYTE/McGraw-Hill, Book Divi- 
sion (70 Main St., Peterborough, NH 
03458), 1981, iv, 433 pages, 714 x 9W 
inches, paperbound. 
ISBN: 0-07-057860-5 $14.95 

A guided tour of your Apple, Atari, 
Ohio Scientific, or PET computer. This 
book takes you through basic concepts, 
such as "memory" and "program," 
right into assembly language program- 
ming. Several subroutines and pro- 
gramming aids are presented, including 
screen utilities, print utilities, a 



machine language monitor, a hexa- 
decimal dump tool, a disassembler, and 
more. 

CONTENTS: Introduction-, Your Com- 
puter; Introduction to Assembler-, Loops and 
Subroutines; Arithmetic and Logic; Screen 
Utilities; The Visible Monitor; Print 
Utilities; Two Hexdump Tools-, A Table- 
Driven Disassembler-, A General MOVE 
Utility; A Simple Text Editor; Extending 
the Visible Monitor; Entering the Software 
Into Your System; Appendices. 

Games 

Apple Pascal Games by Douglas Her- 

gert and Joseph T. Kalash. Sybex Inc. 

(2344 Sixth St., Berkeley, CA 94710), 

1981, xiii, 371 pages, 7x9 inches, 

paperbound. 

ISBN: 0-89588-074-1 $14.95 

A collection of games written in Apple 
Pascal, ranging from simple exercises 
to more advanced, strategic challenges. 
For each game the book includes game 
rules, and a guide to understanding the 
program. A "structure chart" demon- 
strates the organization of each program. 

CONTENTS: Introduction; Acknowledge- 
ments; Simple Games; More Advanced 
Games; Games that use TURTLE- 
GRAPHICS-, Cribbage. Appendices— Reserved 
Words and Functions; Summary of Pascal. 

JMCRO 



the keys to creativity 



Computer power 

A polyphonic synthesizer, a music tutor and 
a music transcriber all in one sophisticated 
package. Soundchaser 1 . - It's a responsive music 
tool that allows computer technology to work 
with you and for you. 

Records and performs 

Soundchaser" transforms an Apple II" into a dy- 
namic polyphonic instrument. Record with the 
digital sequencer, play it back with a live over- 
dub. Create unique, rich and natural sounds 
with up to eight voices. 

Transcribes 

Notewriter" displays your melody and bass 
lines as you play. See your compositions on the 
CRT. Or touch a button and receive a printed 
score. Create, 
compose and 



arrange with one remarkable music tool. 

leaches 

Musictutor" transforms Soundchaser - into a 
challenging educational tool. The software in- 
cludes programmed learning courses in ear 
training, music theory and harmony. Use it to 
develop skills and basic musicianship. 

^rsatile and affordable 

Soundchaser" is the only polyphonic synthe- 
sizer available that records, transcribes and 
teaches. It combines top quality hardware and 
software in a package that's affordable. A six 
voice synthesizer and keyboard lists for $1350, 
A keyboard and performance software for 
the Mountain Computer Music System' - lists 
for S650. Consider Soundchaser: - It's a music 
tool that's really worth 
your notes. 
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COMPUTER MUSIC SYSTEMS 

Contact your local dealer. Apple II" is a registered trademark of Apple Computer, Inc. 

Soundchaserr Notewriter,"* Muticiuior" are registered trademarks of Passport Designs, Inc. 

Notewriter" graphics created with Mark Pelczarski'>. Complete Graphics System. 
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The PERCOM 'M' Line 

Low-Cost Expansion for Your AIM, KIM or SYM Computer 



Complete Disk Storage Systems from $599.95 

s The right storage capacity - Available in 1-. 2- and 3-drive 
systems, with either 40- or 80-track drives. 

t Flippy storage - Flippy drives (optional) let you flip a diskette 
and store data and program's on the second recording surface. 

# High Storage Capacity - Formatted, one-side storage capac- 
ity is 102 Kbytes (40-track drive), 205 Kbytes (80-track drive). 

a Proven Controller - The drive controller design is the same as 
the design used in the Percom 680X LFD mini-disk system. This 
system - introduced in 1977 - has given reliable service in thou- 
sands of applications. Two versions are available: the MFD-C65 
for the AIM-65 expansion bus. and the MFD-C50 for the Sys- 
tem -50 (SS-50) bus. 
w Includes an explicit data separator circuit that's reliable 
even at the highest bit densities. 

# Provides for on-card firmware. 

s Includes a motor inactivity time-out circuit. 

# Capable of handling up to four drives. 

s Capable of reading both hard- and soft-sectored diskettes. 

a DOS included - The MFD disk-operating system works with 
the AIM monitor, editor, assembler, Basic and PL/65 programs, 
interface is direct, through user I/O and Fl, F2 keys. Diskette in- 
cludes DOS source code and library of 20 utility commands. 

a Reliability assurance - Drives are burned-in 48 hours, under 
operating conditions, to flag and remove any units with latent 
defects. 

s Full documentation - Comprehensive hardware and soft- 
ware manuals are included with each system. 
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Expand Your Computer with Proven System-50 Modules 

The Percom M65/50 Interface Adapter connects your computer to 
Percom's System-50 (SS-50) motherboard, allowing you to ex- 
pand your AIM, KIM or SYM with proven System-50 modules. 
You can add disk storage, memory modules.even a video display 
system. The M65/50 provides buffer-amplification of address, data 
and control lines. On-card decode circuitry lets you allocate ad- 
dress space either to the computer or to the expansion mother- 
board. Price: only $89.95. including System-50 motherboard. 

System Requirements: AIM -65, KIM or SYM computer with ex- 
pansion bus and four Kbytes RAM (min). 



Yes ... I'd like to know more about Percom MFD drive systems. 

Rush me free literature. 

Send to 

PERCOM DATA COMPANY. Inc., Dept. 65-M 

1 1220 Pagemlll Rd. Dallas, TX 75243 



PERCOM DATA COMPANY, INC. 

1 1220 PAGEMILL RD DALLAS. TX 75243 
(214)340-7081 

Toil-Free Order Number: 1-800-527-1222 

PRICES AND SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NOTICE 

c 1981 PERCOM DATA COMPANY. Inc 

PERCOM. MFD-C50. MFD C65and M65.50 are trademarks ol Percom Data Company. Inc 

AIM-65 is a trademark ol Rockwell International. Inc 

KIM is a trademark of MOS Technology Corporation 

SYM is a trademark ol Synertek. Inc 



name 


address 


city 


slate 



phone number 
MAIL TODAY! 
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Write - On 



A computer without a word processing program is only 
being half-utilized. And the unused half is the most important, 
because we all have reams of letters to write, scripts to type, text 
to edit, files to keep and data to record. 

Write-On! was developed to solve all these problems, 
and more, for you. . .easily, quickly, and effortlessly. Have 

we succeeded? 
In the June 81 
issue of Byte 
magazine, they 
^■"reviewed Write- 
On! against the competition. And here are just some of the nice 
things they had to say. 

"Write-On! is amazingly error-free and it ran the first 
time we put it on the computer. One of us thinks it's his choice 
of all the word processors that we reviewed." "Write-On! is a 

super word processor touch typists can enter text quickly 

and easily performs its editing chores with ease and speed 

...even provides for form letters using data files. This is a 
tremendously powerful and useful feature (especially for the 
price)." 

To continue with words from Byte, "Along with excellent 
human engineering, Write-On! provides superlative docu- 
mentation leads the user by the hand. . .explanations are 

clear and concise..." And... "...undoubtedly the most 
powerful features found in a microcomputer-based word 
processor." 

Our users have been saying the same kind of things about 
Write-On! The reason, we believe, is because of all the word- 
processors available, this one was designed to be user-oriented 
. . .to be easy for non-computer types to get professional results 
with. Whether used for business, professional, home or school 
. . .Write-On! is the right one because it is right-on. 




For the Apple III*? Of course. 

Our Write-On! word processing pro- 
gram is available for the Apple III* as 
well as the Apple II*. Comeson disk, 
with its easy reading, simply explained, 
step-by-step documentation (mar- 
velously clear!). Write-On! II is $149.95. 
Write On! Ill, $249.95. At your com- 
puter store or from: 

•Apple II & Apple III are trademarks ol Apple Computer. Inc. 



DATAMOST 

19273 Kenya St. 

Northridge, Ca 91326 

(213) 366-7160 

VISA/MASTERCHARGE accepted. 
$1.00 shipping/handling charge. 
(California residents add 6% tax) 
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VisiCalc Formulas 
for Depreciation 



These formulas are ready to key 
into your VisiCalc sheet. The 
author explains how the three 
different depreciation methods 
are used. 



Kim G. Woodward 
6526 Delia Dr. 
Alexandria, Virginia 22310 



VisiCalc, which is available in versions 
for Apple, Atari, PET/CBM, and 
TRS-80, is made by Personal Software. 
In this article I'll show one application 
of this fine program — that of deprecia- 
tion schedules. I currently use this 
application for depreciating equipment 
for income tax purposes. (Before you 
use this program, please consult your 
tax advisor or IRS representative for the 
proper application of depreciation to 
your situation.] 

If the formulas in listing 1 are keyed 
onto a blank VisiCalc sheet, the depre- 
ciation application will be up and run- 
ning. (For further information, please 
refer to your VisiCalc reference book.) 
To explain how to use the depreciation 
application, I must discuss deprecia- 
tion and the formulas as they are used. 

The Depreciation Formulas 

Webster's New International Diction- 
ary defines depreciation as a "decline 
in [the] value of an asset due to such 
causes as wear and tear, action of the 
elements, obsolescence and inade- 
quacy." Business uses depreciation to 



write off the cost of equipment and real 
estate. There are three kinds of depre- 
ciation in wide use today: straight line 
(SLD), declining balance (DB), and sum 
of the years digits (SYD). 

In straight line depreciation, an 
equal amount is depreciated each year. 
In the declining balance method, a 
large amount is depreciated in the early 
life, then gradually tapers off toward 
the later life of an asset. It is generally 
used to write off the largest amount in 
the earliest time period. The sum of the 
years digits method is generally be- 
tween these two. 



There are three entities used in the 
calculation of depreciation: 

1. the starting book value (SBV) — 
what the item cost; 

2. the salvage value — what the item 
would sell for after its useful life; 

3. the expected life of the item. 



This depreciation application of 
VisiCalc provides the depreciation 
(DEP|, the accumulated depreciation 
(ACD), the remaining depreciation left 
(RDV), and the remaining book value 
(RBV) for each of the three depreciation 
types. The formulas are given in terms 
of year j, the current year in the 
schedule we are looking at. The for- 
mulas for the three types are as follows: 

1. Straight line depreciation 
DEP(j) = (SBV - salvage) /life 
ACD(j) = j * (DEP(jJ) 
RDV(j) = DEP(j) * (life - j) 
RBV(j) = RDV(j) + salvage 



2. Sum of years digits depreciation 

sum of years digits = (INT(life) + 1) 
• (INT(life)+2)/2 

DEP(j) = (life + 1 - j) * (SBV - 
salvage)/(sum of years digits) 

RDV(j) = (life-j + 1) * (life-j + 2) * 
(SBV - salvage)/(2 * (sum of years 
digits)) 

RBV(j) = RDV(j) + salvage 

ACD(j) = (SBV - salvage) - RDV(j) 

3. Declining balance depreciation 

DEP(j) = (SBV • (DBF/life)) * (1 - 
DBF/life) A (j-1) 

ACD(j) = SBV • (1 - (1 - DBF/ 
life) A j) 

RDV(j) = (SBV - salvage) - 
ACD(j) 

RBV(j) = RDV(j) + salvage 

where DBF is the declining balance rate 
factor ranging from 1 to 2. 

Note that these formulas are for 
each year of the schedule. Thus, by ad- 
justing the way the calculations are 
performed, we can project the schedule 
out for as many years as the sheet will 
carry. In the case of this depreciation 
application, I have chosen a 5-year 
schedule. 

Use of the Depreciation Application 

Looking at the example, the starting 
book value is entered into position B3 
(1330.00) on the sheet. Likewise, 
salvage value is entered into position 
B4 (20.00) and life of the item is 
entered into position B5 (5) of the 
sheet. The declining balance factor 
(from 1 to 2) can be entered into posi- 
tion E3 (1.50) of the sheet. I generally 
leave this position as 1.5 for com- 
parison purposes. 
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Listing 1 



VISICALC formulas for depreciation 

>F29:@MAX(F10,F16,F22) 

>E29:e"MAX(E10,E16,E22) 

>D29:eMAX(DlO,D16,D22) 

>C29: 3MAX (CIO ,C16 ,C22) 

>B29: @MAX (B10.B 16 ,B22) 

>A29:"MAX DEP 

>F28:gMIN(F10,F16,F22) 

>E28:@MIN(E10,E16,E22) 

>D28:@MIN(D10,D16,D22) 

>C28:eMIN(C10,C16,C22) 

>B28:@MIN(B10,B16,B2 2) 

>A28:"MIN DEP 

>G27:/ — 

>F27:/ — 

>E27:/— 

>D27:/— 

>C27:/— 

>B27:/« 

>A27:/— 

>G26: (1-E4)*F22 

>F26: (E4*F22)+((1-E4)*E22) 

>E26: (E4*E22) +( (1-E4) *D22) 

>D26: (E4*D22)+((1-E4)*C22) 

>C26: (E4*C22)+( (1-E4)*B22) 

>B26:+E4*B22 

>F25:+F24+B4 

>E25:+E24+B4 

>D25:+D24+B4 

>C25:+C24+B4 

>B25:+B24+B4 

>A25:"DB RBV 

>F24: (B3-B4)-F23 

>E24: (B3-B4J-E23 

>D24:(B3-B4)-D23 

>C24: (B3-B4)-C23 

>B24: (B3-B4)-B23 

>A24:"DB RDV 

>F2 3:+B3«(l-(@EXP(F8*eLN(l-(E3/B5) )] 

>E2 3:+B3*(l-(eEXP(E8*6LN(l-(E3/B5) )) 

>D23:+B3*(l-(gEXP(D8*gLN(l-(E3/B5) ) | 

>C2 3: +B3* ( 1- (@EXP (C8*gLN ( 1- (E3/B5) ) 

>B23:+B3*(l-(eEXP(B8*eLN(l-(E3/B5) ) 

>A23:"DB ACD 

>F22:@EXP(@LN(B3)+( (F8-1) *@LN ( 1- (E3/B5) ) ) +gLN (E3/B5) ) 

>E22:@EXP(eLN(B3) + ( (E8-1) *@LN ( 1- (E3/B5) ) ) +?LN ( E3/B5) ) 

>D22:gEXP(gLN<B3)+( (D8-1) *@LN ( 1- ( E3/B5) ) ) +&LN ( E3/B5) ) 

>C22:@EXP(@LN(B3) +( (C8-1) *gLN (1- ( E3/B5) ) ) +SLN (E3/B5) ) 

>B22:@EXP(@LN (B3)+( (B8-1) *@LN ( 1- ( E3/B5) ))+gLN (E3/B5) ) 

>A22:"DB DEP 

>G21:/— 

>F21:/ — 

>E21:/— 

>D21:/ — 

>C21:/~ 

>B21:/~ 

>A21:/ — 

>G20: (1-E4) *F16 

>F20: (E4*F16) + ( (1-E4) *E16) 

>E20: (E4*E16) + ( (1-E4)*D16) 

>D20: (E4*D16) + ( (1-E4)*C16) 

>C20: (E4*C16)+( (1-E4)*B16) 

>B20:+E4*B16 

>F19: (B3-B4)-F17 

>E19: (B3-B4)-E17 

>D19: (B3-B4)-D17 

>C19: (B3-B4J-C17 

>B19: (B3-B4)-B17 

>A19:"SYD ACD 

>F18:+F17 + B4 

>E18:+E17+B4 

>D18:+D17+B4 

>C18:+C17+B4 

>B18:+B17+B4 

>A18:"SYD RBV 

>F17: (B5-F8 + 1) *(B5-F8)* (B3-B4) /(2*E5) 

>E17: (B5-E8 + 1) * (B5-E8)* (B3-B4) / (2*E5) 

>D17: (B5-D8 + 1) *(B5-D8)* (B3-B4) / ( 2*L5) 

>C17: (B5-C8 + 1) *(B5-C8)* (B3-B4) /(2*E5) 

>B17: (B5-B8 + 1) * (B5-B8 ) * (B 3-B4 )/ (2*E5) 

>A17:"SYD RDV 

>F16: ( (B5+l-F8)/E5) * (B3-B4) 

>E16: ( (B5+l-E8)/E5) * (B3-B4) 

>D16: ( (B5+1-D81/E5) * (B3-B4) 

>C16: ( (B5+1-C8J/E5) * (B3-B4) 



Listing 1 (Continued) 

>B16: ( (B5+l-B8)/E5) * (B3-B4) 

>A16:"SYD DEP 

>G15:/ — 

>F15:/— 

>E15:/~ 

>D15:/— 

>C15:/— 

>B15:/— 

>A15:/~ 

>G14: (1-E4) *F10 

>F14:(E4*F10)+( (1-E4)*E10) 

>E14: (E4*E10) + ( (1-E4)*D10) 

>D14: (E4*D10)+( (1-E4)*C10) 

•>C14: (E4*C10)+( (1-E4) *B10) 

>B14:+E4*B10 

>F13:+F12+B4 

>E13:+E12+B4 

>D13:+D12+B4 

>C13:+C12+B4 

>B13:+B12+B4 

>A13:"SLD RBV 

>F12: (B5-F8)*F10 

>E12: (B5-E8)*E10 

>D12: (B5-D8)*D10 

>C12:(B5-C8)*C10 

>B12:(B5-B8)*B10 

>A12:"SLD RDV 

>F11:+F10*F8 

>E11:+E10*E8 

>Dll:+D10*D8 

>C11:+C10*C8 

>B11:+B10*B8 

>All:"SLD ACD 

>F10: (B3-B4)/B5 

>E10: (B3-B4)/B5 

>D10: (B3-B4)/B5 

>C10: (B3-B4J/B5 

>B10: (B3-B4J/B5 

>A10:"SLD DEP 

>G9:/— 

>F9:/~ 

>E9:/-- 

>D9:/~ 

>C9:/~ 

>B9:/~ 

>A9:/~ 

>G8:/FI6 

>F8:/FI+E8+1 

>E8:/F1+D8+1 

>D8:/FI+C8+1 

>C8:/FI + B8 + 1 

>B8:/FI+B6 

>A8:"YEAR 

>G7:/ — 

>F7:/ — 

>E7:/— 

>D7:/~ 

>C7:/ — 

>B7:/ — 

>A7:/ — 

>B6:/FI1 

>A6: "START YR 

>E5:/FI+B5* (B5+D/2 

>D5:"SOYD 

>B5:/FI5 

>A5:"L1FE 

>E4: 244/366 

>D4:"PRCNT YR 

>B4:0 

>A4: "SALVAGE 

>E3:1.5 

>D3:"FACT 

>B3:617.75 

>A3:"BOOK VAL 

>A1:"ITEM: 

/Wl 

/GOR 

/GRA 

/GFS 

/GC9 
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Example of 5-year depreciation schedule. 


ITEM: APPLE U 










Book Val 


1330.00 


Fact 


1.50 




Salvage 


20.00 


Prcnt Yr 


0.70 




Life 


5 


SOYD 


15 




Start Yr 


1 










Year 


1 


2 


3 


4 


5 6 


SLD DEP 


262.00 


262.00 


262.00 


262.00 


262.00 


SLD ACD 


262.00 


524.00 


786.00 


1048.00 


1310.00 


SLDRDV 


1048.00 


786.00 


524.00 


262.00 


0.00 


SLD RBV 


1068.00 


806.00 


544.00 


282.00 


20.00 




182.54 


262.00 


262.00 


262.00 


262.00 79.46 


SYDDEP 


436.67 


349.33 


262.00 


174.67 


87.33 


SYDRDV 


873.33 


524.00 


262.00 


87.33 


0.00 


SYDRBV 


893.33 


544.00 


282.00 


107.33 


20.00 


SYD ACD 


436.67 


786.00 


1048.00 


1222.67 


1310.00 




304.23 


375.82 


288.49 


201.15 


113.82 26.49 


DB DEP 


399.00 


279.30 


195.51 


136.86 


95.80 


DB ACD 


399.00 


678.30 


873.81 


1010.67 


1106.47 


DBRDV 


911.00 


631.70 


436.19 


299.33 


203.53 


DBRBV 


931.00 


651.70 


456.19 


319.33 


223.53 




277.99 


315.60 


220.92 


154.65 


108.25 29.05 


MINDEP 


262.00 


262.00 


195.51 


136.86 


87.33 


MAX DEP 


436.67 


349.33 


262.00 


262.00 


262.00 



Next, by entering the starting year 
of the schedule in position B6 (1), we 
can get depreciation schedule for a 
period of five consecutive years. Since 
the IRS will allow the percentage of the 
depreciation for the balance of the year, 
I have made provision for the entry of 
the balance. The balance of the year as 
a decimal can be placed into position 
E4 (0.70). The fifth line for each of the 
types gives the depreciation that may 
be taken in that year (valid only with a 
starting year of 1). 

Position E5 (15) of the sheet is for 
the calculation of the sum of the years 
digits. The minimum and maximum 
values for depreciation in each of the 
years is provided as the last two lines. 
As there is no way of zeroing years past 
the life, note that the RDV will become 
negative in this case. 

In Conclusion 

This application of the VisiCalc 
program has been provided as a tool to 
help make difficult calculation easy. It 
will provide a quick glance at alter- 
natives for use in business decisions 
and the big "if" question as well. 

JMCftO 



Small business owners! Computer hobbyists! 

DEAFNET can help you 

with your communication needs! 



With DEAFNET you can 
SEND and RECEIVE messages 




SHARE information 



Who will I talk to? 

Who will talk to me? 

Keep in touch with: 

Friends. 

Board. Advisory. Committee Members, 

Clubs, Organization or Alumni Officers 

Business Associates. 

What's DEAFNET For? 

Planning meetings, workshops, 

conventions, socials, athletic and alumni 

events. 

Making good business decisions 

Sharing information. 

How Does DEAFNET Work? 

Receive and send messages at your 

convenience. 

Communicate with staff members quickly. 

Finish meetings without interruption. 

Improve Information flow. 

Eliminates any long distance expenses. 

Decreases travel time and expenses. 

Lowers postage expenses. 

What Do I Need To Subscribe to 
DEAFNET Services? 

Telephone Service. 

An ASCII terminal with coupler. 

A DEAFNET mailbox. 



For more Information about electronic mail: 
Deaf Communications Institute 
at DEAF COMMUNITY CENTER Bethany Hill Framingham. MA 01 701 




CONFERENCE by computer 




NIKROM TECHNICAL PRODUCTS PRESENTS 

A DIAGNOSTIC PACKAGE FOR THE APPLE II 

AND APPLE II + COMPUTER. 

"THE BRAIN SURGEON" 

Apple Computer Co. has provided you with the best equipment available to date The 
Diagnostic's Package was designed to check every maior area ol your computer, detect errors, 
and report any malfunctions. The Brain Surgeon will put your system through exhaustive, 
thorough procedures, testing and reporting ail findings 

The Tests Include: 

• MOTHERBOARD ROW TEST 

• APPLESOFT ROM CAHO TEST 
■ INTEGER ROM CARO TEST 
. MOTHERBOARD RAM TESTS 
. DISK DRIVE SPEED CALIBRATION 

• DISK ORIVE MAINTENANCE 
. DC HAYES MICROMODEM II TEST 

(HARDWARE & EPROMI 
. MONITOR & MOOULATOR ROUTINES 
. MONITOR SKEWING TESTS 
. MONITOR TEST PATTERN 
. MONITOR TEXT PAGE TEST 



. MONITOR ft TV YOKE ALIGNMENT 
. LORES COLOR TESTS 
-HI.RES COLOR TESTS 

■ RANDOM HI-RES GENERATOR 

• SPEAKER FUNCTION TESTS 

• SQUARE WAVE MODULATION 
. PADDLE & SPEAKER TEST 
. PADDLE & BUTTON TEST 
. PADOLE STABILITY 

• INTERNAL MAINTENANCE 

■ GENERAL MAINTENANCE 

• ON BOARD -HELP" 



<^P 



The Brain Surgeon allows you to be confident of your system. This is as critical as the 
operating system itself You must depend on your compute' 100% of it's running lime Tht 
Brain Surgeon will monitor and help mainiam absolute peak performance. 

Supplied on diskette won complete 
documental >on and maintenance gu>d< 

PRICE 1*9 95 

REQUIRES 48K. FP «n ROM 

t 0<s* 0*irt. DOS 3 2 o- 3 3 

Nikrom Technical Products 

2S PROSPECT STREET ■ LEOMINSTER. MA 01*S3 

Ca/f Toll-Fr— Now! 

Master Cha«oe 4 VISA users call i«0O«3522*6 
Kansas Residents call iaoO-362 2421 
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BREAK THE TIME BARRIER! 

Speed-up and upgrade Apple ][ functions 
with TWO all-new, low-cost utilities. . 



1 . UNIVERSAL BOOT INITIALIZER (UBI) 

• UBI-initialized disks load the 
Language Card (any RAM Card) 
up to 9 times faster. 

• Can be applied to Apple ][ DOS 3.3 or 3.2.1 
disks by novice or pro — by user or software 
vendor alike. 

• Obsoletes use of Apple BASICS disk and 
DOS 3.3 Master disk for fast single-disk 
direct booting. 

• The DOS 3.2.1 UBI-initialized disk boots 
on either 13 or 16 sector PROMS — and 
loads RAM Card in 1.7 seconds (features 
not available from Apple). 

• Allows turnkey operation with boot in any 
Slot, Drive 1 and execution of BASIC, Binary 
or EXEC greeting program in Drive 1 or 2. 

• The UBI-initialized disk features universality, 
compatibility and versatility. 



* 



2. AMPER-SORT/MERGE (A-S/M) 

• Can sort 1000 records in seconds. 

• A general purpose Disk Sort/Merge Utility for 
Apple DOS 3.3 text files. 

• Machine-language Read, Sort and Merge 
routines for speed. 

• Sorts up to 5 input files into a single output file 
(up to at least 125K). 

• Sorts records alphanumerically (Ascending 
or Descending) up to 5 fields. 

• Sorts random or sequential files. 

• Merges 2 to 5 pre-sorted files into a single file. 

• Sort parameters from the keyboard or from a 
special parameter file. 

• Compatible with most data base programs that 
create standard Apple DOS 3.3 text files 

(e.g., Personal Software's CCA DMS files). 



H 



System Requirements: 48K Apple ][ or Apple ][+, 
ROM or RAM Card, DOS 3.3 or DOS 3.2.1 and one 
disk drive. 

Cost: $49.95 (+S3.00 postage and handling) for the 
UBI Utility Disk, two Demo Disks and a Training 
Disk keyed to a 32 page Instruction Manual. 



System Requirements: 48K Apple ][ or Apple ][+, 
ROM or RAM Card, DOS 3.3 and one or more 
disk drives. 

Cost: $49.95 (+$3.00 postage and handling) for the 
A-S/M Utility Disk and a Training Disk keyed to 
a 24 page Instruction Manual. 



ff 



For Only $15: 
Credit Cards: 
Mail Order: 



You can get the Training Disk and Instruction Manual for either utility. This payment 
can be credited toward later purchase. 

[visa, mc or amer exp] caii cybertronics international, inc. 

Clearinghouse: (212) 532-3089. 

Send check or money order (no Purchase Orders or C.O.D.'s) to: 
S & H SOFTWARE • BOX 5 • MANVEL, ND 58256. 



% LICENSED FROM APPLE: All Apple Computer Inc. programs - FPBASIC, INTBASIC, DOS 3.3 & DOS 3.2. 1 — used in 
S& H Software s utility programs are licensed from Apple Computer Inc. byS&H Software. The unique UBI license to 
software vendors allows their use of these Apple Computer copyrighted programs to execute their programs on UBI- 
created disks, without further licensing from Apple Computer Inc. Software vendors' inquiries invited for both utilities. 



S&H Software 



H 



Box 5 Manvel NI) 58256 
(701)696-2574 
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Numerical Solution 
of Differential Equations 



A brief discussion of the Runge- 
Kutta method of solving 
differential equations is 
accompanied by an Applesoft 
program that prints out and 
plots the points for the resulting 
curve. 



Robert D. Walker 

6100 F. Woodchase Lane 

Marietta, Georgia 30067 



Mathematical analysis of many physi- 
cal phenomena, especially in engineer- 
ing, requires solution of differential 
equations. Generally these equations 
are solved by a hodgepodge of tech- 
niques learned in an elementary dif- 
ferential equations course. Most 
higher-order equations require labori- 
ous techniques, and yet fail to yield 
solutions in the closed form. No simple 
formula is attained. 

These complex equations are best 
solved by using numerical methods on 
a computer. This article includes an 
Applesoft program and short descrip- 
tion of a fourth-order Runge-Kutta 
method for solving ordinary differential 
equations, given initial conditions (in- 
itial value problems). Although this 
program was written for the Apple 
computer, with minimal changes it is 
capable of running on another system. 

The Runge-Kutta Method 

An exhaustive derivation on the 
Runge-Kutta method will be omitted 
from this article, but may be found in 
most differential equations texts. The 
general idea behind this method is fairly 
simple. Let's assume you're given the 
following differential equation: 

Equation 1 

dY/dX = Y' = f(X,Y) 



In addition you're given the initial 
conditions: 

Y = Yn at X = Xn 

With this information one can easily 
compute the slope of the line tangent to 
the solution curve (Y = g(X)) at 
(Xn.Yn). This will simply be equal to 
f(Xn,Yn). 

Now let's assume Xn is incre- 
mented by some small value, XL We'll 
call this new value of X, Xn+ 1. 

Xn+1 = Xn + Xi 

The problem now is to approximate the 
corresponding Y value, Yn + 1 . In- 
tuitively it should seem reasonable that 
for a very small increment of X the 
following approximation is true: 

Equation 2 

Yn+1 = Yn + f(Xn,Yn)*Xi 

Editor's Note: = means approximately 
equal to. 

This is known as Euler's one-step 
method. 

Provided the curve in question was 
linear (a straight line), the left and right 
sides of the equation 2 would be exactly 
equal. Obviously this is not true except 
in the most trivial cases, where f(X,Y) 
is equal to some constant. As a result, 
it is necessary to replace the value 
f (Xn.Yn) with a better approximation 
of the slope between the points (Xn, Yn) 
and (Xn+1, Yn+1), particularly if ac- 
curacy is important. In effect this is 
what the Runge-Kutta method does. It 
uses a "weighted average" of slopes 
within the interval Xn < = X < = 
Xn + 1. 

The formula for the fourth-order 
Runge-Kutta method using Runge's 
coefficients is as follows: 

Equation 3 

Yn+1 * Yn + M*Xi 



where 
Equation 4 

M = (m0 + 2*m1 + 2*m2 + m3) 
Equation 4a 

mO = f(Xn.Yn) 
Equation 4b 

ml = f(Xn + Xi/2, Yn + (mO/2)*Xi) 
Equation 4c 

m2 = f(Xn + Xi/2, Yn + (m1/2)*Xi) 
Equation 4d 

m3 = f(Xn + Xi, Yn + m2-Xi) 

Note that f(Xn, Yn) in equation 2 
has been replaced by M in equation 3. 
The value M is the "weighted average" 
of the slopes. The computed values mO, 
ml, m2, and m3 are the slopes used to 
compute M. Figure 1 includes a geo- 
metric interpretation of these values. 

Let's summarize what we've ac- 
complished so far. Given a first-order 
ordinary differential equation and in- 
itial conditions, we are able to itera- 
tively approximate values of Y along an 
interval of X. 

Up to this point we have limited 
our discussion to first-order equations. 
Solving higher-order equations, how- 
ever, is just as easy. In fact the Runge- 
Kutta method described above is not 
changed. The ability to transform a 
higher-order equation into a system of 
first-order equations is the key. 

For example, let's assume you're 
given the following second-order 
equation: 

Equation 5 

Yt " + YV + Y1 = sin(X) 

Make the substitution 
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Sensible Software 

The Utility People 

Making Life with the Apple II A Bit Easier 



DISK RECOVERY 
THE SCANNER" 

48K + , DISK II 

Apple II /Apple 11 + 

$30.00 

Are you plagued with disk I/O errors? 

Does the integrity and safety of your 
data concern you? 

This program is a must for all 
Disk II owners!! 



Just as "Apple Pascal" provides a "BAD BLOCK SCAN". DISK RECOVERY will do a 
complete scan of your diskettes' recording surfaces Damaged areas will be 
"marked" as used in the disk directory so that no attempts will be made to 
"WRITE" to a bad sector The VT0C is completely rebuilt to accurately reflect 
BAD. USED, and FREE SECTORS, further insuring the integrity of the diskette A 
complete report is generated advising the user of all corrections BEFORE the ob- 
ject disk is altered A resulting "DISK MAP" is presented for your review Flexibili- 
ty of the program allows evaluation of NEWLY INITIALIZED DISKETTES as well as 
DISKETTES THAT ALREADY CONTAIN PROGRAMS AND/OR DATA! The SPEED Of 
analysis is unsurpassed - only 18 seconds for a 16 sector diskette! DISK RECOVERY 
is supplied in the revolutionary QUICKL0ADER format which allows easy recon 
figuring to make it fully compatible with 13 sector and 16 sector diskettes as 
well as your SUPER-TEXT data diskettes! TREAT YOURSELF TO PEACE OF MIND 
KNOWING THAT YOUR PROGRAMS AND DATA ARE SECURE WITH ...DISK RECOVERY 



SUPER DISK COPY III $30.00 

48K & DISK II required. APPLE II or APPLE II PLUS 

Practically a "mini-DOS" in itself, SUPER DISK COPY III has 
become the standard for APPLE disk utilities. SDC is a menu- 
driven program that allows manipulation of all types of files 
under DOS 3.1, 3.2, and 3.3. SDC is the only disk utility 
available for the APPLE that combines these features: 1) 
COPY single files (Integer, Applesoft, Binary, or Text). 2) COPY 
DOS, 3) COPY entire disk, 4) UNDELETE deleted files, 5) Op- 
tional "INIT" of copy disk, 6) REPLACE illegal characters in 
filenames. 7) FIX filesizes. 8) Use of DOS and directory sectors 
for up to 13 K additional storage. 9) ALPHABETIZE filenames 
in diskette catalog, 10) LOCK or UNLOCK files, 11) PLOT of disk 
usage, and 12) Optional rearrangement of files so that they 
occupy contiguous sectors for improved access times, SDC III 
now supports the APPLE wildcard character "=" in file 
specifications. SDC III makes tne conversion to DOS 3.3 less 
painful (than MUFFIN) and also allows files to be transferred 
back to DOS 3.2 since both 13 and 16 sectored disks can be 
accessed at the same time. 



MULTI-DISK CATALOG III $25.00 

48K and DISK II drive required, APPLE II or 

APPLE II PLUS 
MDC is a very fast, machine-language database program 
designed specifically for keeping track of the contents of 
your APPLE diskette library, MDC III requires only seconds to 
read FILENAMES, FILETYPES, FILESIZES. number of free sec- 
tors remaining on diskette, and actual volume number from 
each of your diskettes. Both sides of a diskette can be loaded 
and assigned to the same DISK ID#. MDC III suppo rts use of a 
two-character CLASSIFICATION field that can be used to 
group games, utilities, and other types of related files 
together. MDC III supports a fast Shell-Metzner sort on any of 
the five database fields. A unique "LIST MASK" provides a 
powerful search capability for interrogating the database 
for specific information. A "FLIP DOS" command allows MDC 
III to read directories from DOS 3.1, 3.2, and 3.3 disks and to 
store the resulting database on either a 13 or 16 sectored 
disk. 



Si 



Sensible Software 

6619 Perham Drive Depi. MO 

West Bloomfield, Michigan 48033 

313-399-8877 

For a complete catalog, send 

$1.00, refundable with your first purchase. 

Visa and MasterCard welcome. 

Please add S1.25 postage and handling per diskette. 

APPLE is a registered trademark of APPLE Computer Company 
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Equation 6 

Y2 = Y1' 

From this substitution you acquire the 
following system of first-order 
equations: 

Equation 7 

Yl' = Y2 
Equation 8 

Y2' = -Y1 - Y2 + sin(X) 

Our intention is to approximate the 
values Yl and Y2 along a specified 
X-interval. This requires us to use the 
Runge-Kutta method twice for each X 
value. In particular, Yl' (equation 7) is 
essential for approximating Yl. 
Likewise, it would be impossible to ap- 
proximate Y2 without Y2' (equation 8). 
This same procedure may be extended 
for higher-order equations. 

The above example is straight- 
forward. Nonetheless, complications 
may arise in the way in which these 
first-order equations are coupled. For 
instance, we could have a system of 
equations whereby some derivatives 
are functions of other derivatives. In 
this case, the order in which the 
derivatives are calculated becomes im- 
portant. Further explanation of this 
problem is beyond the scope of this ar- 
ticle, and left to the reader. 



Program Implementation 

As with all programs, it was first 
necessary to determine exactly what 
the program was to accomplish. After 
careful consideration I decided to have 
the program compute Yl and Y2 
(=Y1') along a specified X- interval. 
These values would then be printed in 
tabular form. As you know, tables of 
numbers do not readily reveal the be- 
havior of functions as well as graphs. 
Consequently, I decided that the values 
Yl and Y2 would be plotted adjacent to 
the table. 

The finished program (see listing) is 
divided into three main parts — intro- 
duction, calculations, and printout. 
Table 1 is a list of variables used in the 
program. 

The introduction (lines 100-225) 
prompts the user for the parameters 
used to compute the Y values. These 
parameters include the number of first- 
order equations, the X-interval, the 
X-increment for calculations [Xi, equa- 
tion 3), the X-increment for printout, 
and the initial conditions Y(1..N). 

These initial conditions are then 
sent to a subroutine (lines 800-845) 
which saves X, Y(l), and Y(2) in three 
arrays X( ), Pl( ), and P2( ) for printing 
at a later time. In addition, this sub- 
routine will determine minimum and 
maximum values for Y(l) and Y(2). 
These extremes will be necessary for 
plotting. 



Lines 300 through 410 include the 
actual implementation of the Runge- 
Kutta method. This will require some 
explanation. 

At the beginning of this section, X is 
equal to XB (beginning of X-interval) 
and the values Y( 1 . .N ) are set to the in- 
itial conditions. When line 305 is ex- 
ecuted, the derivatives F(1..N) are 
calculated at the points (Xn,Y(l..N) ). 
These are equivalent to mO (equation 4a) . 

Lines 310 through 320 update 
Y(1..N). First, the values Y(1..N) are 
saved in the array YN(1..N). Then, the 
values of the slopes F(1..N) are saved in 
the array M(1..N). Finally, the values Y 
(1..N) are updated so that ml can be 
computed next. 

Line 325 increments X by XI/2. At 
this point Xn = Xn + Xi/2 and Yn = 
Yn + (mO/2*Xi. Line 330 then calcu- 
lates ml (equation 4b). Lines 335 
through 350 sum M(1..N) and update Y 
so that m2 can be calculated next (line 
355). 

Likewise, lines 360 through 375 
sum M(1..N). In addition, X is again 
incremented by XI/2 (line 380), and Y 
= Yn + m2*Xi. M3 is calculated in 
line 385. 

Lines 390 through 400 actually 
calculate the Yn+ 1 values. 

Line 405 checks to see if X is suffi- 
ciently close to XP. If it is, then the 



Figure 1: Sl< 
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Yn + m2(Xi) . 

Yn + m1(Xi/2) . 
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>pes used by 4th order Runge-Kutta method. 

\ 

m3 
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-y 


mO 




Xn Xn + (Xi/2) Xn + Xi 





Table 1: List of Variables 


A$ 


General 


E 


Index, first-order eqs. 1..N 


F() 


Derivatives of Y( ) ; ex. F(l) = Y(l)' 


Fl 


Tabbing factor Y(l) 


F2 


Tabbing factor Y(2) 


I 


Index, initial conditions Y(1..I) 


IC 


X-increment for calculations 


IP 


X-increment for printout 


J 


Index, printout X(l.J), Pl(l.J), and P2(1..J) 


M() 


Sum of slopes for each first-order eqs. 1..N 


N 


Number of first-order eqs. 


Nl 


Minimum value of Y(l) 


N2 


Minimum value of Y(2) 


pin 


Printed value of Y(l) 


P2() 


Printed value of Y(2) 


Tl 


Number of spaces right of col. 47 for plot Y(l) 


T2 


Number of spaces right of col. 47 for plot Y(2) 


X 


X value along X-interval 


XI 


Maximum value of Y(l) 


X2 


Maximum value of Y(2) 


XB 


Beginning of X-interval 


XE 


End of X-interval 


Y(| 


Value of Yn for first-order eqs. 1..N 


YI() 


Initial values of Y(1..N) 


YN() 


Temp, value of Yn for first-order eqs. 1..N 
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values X, Y(l), and Y(2) are saved by 
the subroutine on lines 800 through 845. 

Line 410 compares X to see if XE 
(end of the X-interval) has been reached. 
If it hasn't then Yn + 1 is calculated. 
Upon reaching the end of the 
X-interval, the results are printed. 

The third main section, lines 500 
through 700, prints the results that 
have been stored in arrays X(1..J), 
Pl(L.J), and P2(1..J), where J is the 
number of values stored. Lines 500 
through 600 print general information 
about the solution. This is self- 
explanatory. However, note that line 
510 may be deleted for some printers. 

Lines 605 through 620 calculate the 
tabbing factors, Fl and F2, for plotting 
Y(l) and Y(2). These variables are used 
to scale the plotted points so that the 
minimum Y value falls on column 47 
and the maximum Y value falls on col- 
umn 79. 

The table heading is printed by lines 
625 and 630. Next, lines 635 through 
685 print the table and plot the results. 
Columns 47 through 79 are reserved for 
the graph. Tl and T2 (lines 655 and 
660) are the amount of spaces to the 



10 
20 
30 
40 
SO 
60 
70 
SO 
90 

95 l 

96 l 
100 
105 
110 
US 
120 
125 
130 
135 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 
200 
205 
210 
215 
220 
225 
230 
235 
300 
305 



REM «»»»»»»««»t«»»«»««»»«»»«»«»«»««««»«»««» 

REM ** 4TH-DRDER RUNGE-KUTTA METHOD «« 

REM «* FOR SOLUTION OF ** 

REM (• DIFFERENTIAL EQUATIONS (* 

REM ** ** 

REM «« WRITTEN BY R. WALKER ** 

REM ** WICHITA, KS ** 

REM ««««J««»»»»«»e«»»»**»»»«««l««»«»«««««*» 

DIM Y(5>,YK5),YN(5),F(5),M(5) ,XP(200) ,P1 (200) ,P2 (200) 



REM *t INTRODUCTION «»»«»t «««««««»«»«*««««» 1 « « 

HOME 

HTAB (6) I PRINT "4TH-0RDER RUNGE-KUTTA METHOD" 
HTAB (12>i PRINT "FOR SOLUTION OF" 
HTAB (9)1 PRINT "DIFFERENTIAL EQUATIONS- 
PRINT l PRINT ■ PRINT 

PRINT "ENTER SYSTEM OF FIRST-ORDER EQUATIONS" 
PRINT "ON LINES 10O1-1998. " 
LIST 1001,1998 
INPUT "CONTINUE (Y/N>? "|A« 
IF A* - "N" THEN END 
HOME 
VTAB (3) 
INPUT "NUMBER OF 1ST-ORDER EQS.- 

" INTERVAL OF X (BEGIN, END) - 

"INCREMENT OF X (CALO- "jIC 



INPUT 
INPUT 
INPUT "INCREMENT OF X (PRINT)- "|IP 



•|N 
";XB,XE 



PRINT "INITIAL VALUE(S):" 
- 1 TO N 

" V<"|I|">"|1 INPUT "■ "|Y(I> 
Y(I) 



PRINT 

FOR I 

PRINT 
YKI) - 

NEXT 
XP(1) - XBlPKl) - Y(l)lP2(l) - Y(2)l REM FIRST PRINTED VALUES 
J - ll REM NUMBER OF PRINTED VALUES 

X - XBlXP - XBl REM INITIALIZED BEG IN I NG X AND XP 
XP - XP + IPl REM NEXT VALUE TO BE PRINTED 



REM ** CALCULATE YN+1 JIIIIIII1II1HIII11III1I 
GOSUB lOOOt REM CALCULATE MO FROM (XN.YN) 



(Continued) 



Why you need The Inspector. 



If you're serious about programming, you need 
to set all your utilities together in one place — 
inside your Apple. The Inspector comes on an 
Eprom that simply plugs into the D8 socket, or on 
a disk ready to merge with Integer Basic for 
automatic loading on boot. Ether way, it stays at 
your fingertips, ready to call without disturbing 
your current program. 

The Inspector puts you in total control of both 
memory and disks. You can search forward 
and backwards, edit, read nibbles, 
map disk space, dump the screen 
to a printer, examine every secret 
of your Apple. Use The Inspector 
to repair blown disks, undelete 
files, input "illegal" commands, 




read and alter files, locate strings in memory or on 
disk. The uses are endless. The manual, alone, is an 
education. And it's always there when you need it. 

You need the most powerful disk and memory 
utility available for your Apple. You need the 
Inspector. 

See your local dealer, or order direct for just 
$4995. Mastercard and Visa holders order 
toll-free, 1-800-835-2246. 

OMEGA MICROWAREJNC. 

222 SO. RIVERSIDE PLAZA 

CHICAGO. IL 60606 

312-648-1944 



Apple is i registered trademark of Apple Computer. Inc 
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310 
315 
320 
325 
330 
335 
340 
345 
350 
355 
360 
365 
370 
375 
380 
385 
390 
395 
400 
405 

410 
415 
420 
500 
505 
510 
515 

520 
525 
530 
535 
540 
545 
550 
555 
560 
565 
570 
575 
580 
585 
590 
595 
600 
605 
610 
615 
620 
625 

630 



FOR E - 1 TO N 
YN(E> - Y(E)iM(E> - F(E>:Y(E) - YN(E) + IC * F(E) / 2 
NEXT 

X G0SUB + 1000i REM CALCULATE Ml FROM (XN+IC/2, YN+ (M0/2) »IO 

FOR E - 1 TO N 
M(E) - M<E) + 2 » F(E)i REM (M0*2*M1> 
Y(E) - YN(E) + IC * F<E) / 2 

60SUB lOOOl REM CALCULATE M2 FROM (XN+IC/2, YN+ (Ml/2) *IC> 

FOR E - 1 TO N 

MCE) - M(E) + 2 * F(E)I REM <MO+2«Ml+2«M2> 

Y(E) - YN(E> + F(E) * IC 

NEXT 

GOSUB lOOOl REM CALCULATE M3 FROM (X+IC, YN+ (M2) *IC) 

Y™ = YNCE) ♦ (M(E> + F<E>) * IC / 6i REM CALCULATE YN+1 

NEXT 

IF ABS (X - XP) < .OO01 OR X > XP THEN BOSUB 800: REM CLOSE ENOUGH 

! — NOW SAVE VALUES 

IF X < XE GOTO 300 

I 

'REM t* PRINT RESULTS «*»*t***«***t**********»* 

PRINT CHR» (4>|"PR»1" 

PRINT CHR» (9>l"BON"l REM NOT REQUIRED ON SOME PRINTERS 

PRINT . PRINT "4TH-ORDER RUNGE-KUTTA SOLUTION TO THE FOLLOWING 1ST-OR 
DER SYSTEMl " 
LIST 1001,1998 
PRINT "INITIAL CONDI TIONSl " 
1 TO N 
Y (..;E,»). 



"|YME> 



"X 

"X 
"X 



INTERVAL 

INCREMENT 

INCREMENT 



|XB|" TO 
(CALO- ' 
(PRINT)- 



"|XE 

|IC 

»|IP 



FOR E 

PRINT 

NEXT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

IF N = 

PRINT 

PRINT 

PRINT 

PRINT 

IF XI - Nl THEN Fl - Ol BOTO 615 
Fl - 32 / (XI - Nl)! REM TAB FACTOR FOR Y(l> 

IF X2 - N2 THEN F2 - Ol BOTO 625 
F2 = 32 / (X2 - N2>: REM TAB FACTOR FOR Y(2) 

PRINT " X Yd) Y(2) 

ND Y(2>" 

PRINT " 



"Yd) MIN- "|N1 
"Y(l> MAX- "| XI 
1 GOTO 600 

"Y(2> MIN- "|N2 
"YC2> MAX- ";X2 



PLOT Y(l) A 



670 



675 



POKE 36, T2 + 47l PRINT 



635 FOR I - 1 TO J 
640 PRINT XP(I)| 
645 HTAB (IS) l PRINT P1(I)| 

650 IF N < > 1 THEN HTAB (31): PRINT P2(I)| 

655 Tl - INT (<P1(I) - Nl) * Fl) 

660 T2 - INT ((P2(I) - N2> * F2> 

665 IF N - 1 THEN POKE 36, Tl + 47l PRINT " 1 " I GOTO 685 
IF Tl < T2 THEN POKE 36, Tl + 47: PRINT ■■ 1 " | I 

IF T2 < Tl THEN POKE 36, T2 + 471 PRINT "2"|l POKE 36.T1 ♦ 47i PRINT 

"1"! GOTO 685 

POKE 36, Tl + 47l PRINT "*" 

NEXT 

PRINT I PRINT 

PRINT CHR» (4>|"PR»0" 

END 



680 

685 

690 

695 

700 

705 : 

710 I 

800 REM ** SUBROUTINE- SAVE X, Yd), AND Y<2> **** 

805 J - J + 1> REM COUNT NUMBER OF ORDERED PAIR TO BE PRINTED 

810 XP(J> - INT (X * 100O0 + .5) / 10000:P1(J> - Yd)iP2(J) - Y(2) 

815 IF PI (J) < Nl THEN Nl - Pl(J)l REM COMPARE FOR MINIMUM PI 

> XI THEN XI = Pl(J)l 
SOTO 840 
< N2 THEN N2 = P2(J)l 

> X2 THEN X2 = P2(J)l 



820 
B25 
830 
B35 



REM COMPARE FOR MAXIMUM PI 



REM COMPARE FOR MINIMUM P2 
REM COMPARE FOR MAXIMUM P2 



IF PI (J) 

IF N - 1 

IF P2(J) 

IF P2CJ) 

840 XP = XP + IPl REM INCREMENT XP BY IP 
845 RETURN 
850 I 
855 : 

1000 REM ** SUBROUTINE- FIRST ORDER SYSTEM ««»*»««» 

1001 REM EXAMPLE PROBLEM 

1002 REM Yl" + Yl' + Yl =■ SIN(X) (EQ. 5) 
1100 F(l) - Y(2): REM (EQ. 7) 

1200 F(2> = - Yd) - Y(2) + SIN (X): REM (EQ. B) 
1999 RETURN 



right of column 47 that the points Y(l) 
and Y(2) should be plotted. Lines 670 
through 680 determine which value 
(Y(l) or Y(2) ) should be plotted first. If 
Tl = T2 then an asterisk will be 
printed in this position (line 680). 

In Applesoft, the HTAB command 
does not seem to work for any value 
greater than 40 when using a printer. 
This is the reason for using the POKE 
command in lines 665 through 675. 
Lines 650 and 665 are used to handle 
first-order equations, in which Y(2) is 
not calculated or plotted. 



Program Operation 

Operation of this program is 
straightforward. To illustrate this, we 
will solve equation 5 (mentioned 
earlier). But first, let's relate this equa- 
tion to some physical phenomenon. 

The movement of a suspended 
mass-spring system obeys this equa- 
tion. Let's assume we have an object 
suspended from a spring to which we 
are applying a force. Furthermore, 
assume that there exists a dampening 
force which is proportional to the 
velocity of the mass. This dampening 
force is usually exerted by a dashpot 
mechanism. The general equation then 
becomes: 

Equation 9 

m*Y" + oV + K*Y = F(X) 

where, 

Y' ' = acceleration of mass 

Y' = velocity of mass 

Y = position of mass 

m = mass in slugs (lbm/32) 

c = dampening constant (lbf/ft/s) 

k = spring constant (lbf/ft) 

F(X) = external force 

Now equation 5 has physical 
significance. It describes the move- 
ment of a mass-spring system where: 

m = 1 slug (32 lbm) 
c = lbf/ft/s 
k = lbf/ft 
F(X)= sin(X) 

Note that X is actually time in seconds. 

Once the program is loaded, it is 
first necessary to delete lines 1001 
through 1998. This clears the system of 
first-order equations. Next, the new 
system of first-order equations will be 
entered on these lines. In this example 
equations 7 and 8 would be entered as 
shown in the listing, lines 1100 and 
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1200. Lines 1001 and 1002 are for 
documentation purposes. Now we are 
ready to run the program. 

In this example the number of first- 
order equations will be two. (Y(l) and 
Y(2) will be calculated in the X-interval 
through 7. Next, the increment for 
calculations will be set to 0.1. In 
general, the smaller the value of IC, the 
more accurate the calculations. How- 
ever, for this program IC should be no 
smaller than 0.001. This will prevent 
excessive roundoff errors when calcu- 
lating X and will also shorten the run 
time. 

The next value requested by the 
program is the increment at which we 
would like X, Y(l), and Y(2) to be 
printed. The value 0.2 was selected for 
this example. We are now ready to 
enter the initial conditions. 

In this example the suspended ob- 
ject will start at rest. Thus Y(l) (posi- 
tion) will be entered as zero. Likewise 
Y(2) (velocity) will be entered as zero. 
In less than a minute the printer will 
begin printing the results. 



One important item should be men- 
tioned concerning the graphs of Y(l) 
and Y(2). Except in special cases, these 
two graphs are not superimposable, for 
two reasons. First, the values Y(l) and 
Y(2) are not scaled equally. Second, the 
graphs have been translated along the 
Y-axis, so the points Y(1) = and 
Y(2) =0 will not be plotted at the same 
location on the paper. 



As mentioned earlier, many ordinary 
differential equations are difficult to 
solve and do not yield a solution in a 
closed form. The above example, how- 
ever, is easily solved and does yield a 
solution in a closed form. Without 
showing the intermediate steps, the 
particular solution to equation 5, given 
the initial conditions, is as follows: 



1 -Vix 
Y(1) = e sin 



■sfT 



CH 



+ 



- 'Ax 



cos 



vT 



Ct") 



- cos(x) 



Using this closed form of Y(l), I 
have calculated Y(l) at various points 
along the same X-interval specified in 
the sample run above. Table 2 com- 
pares the values of Y(l) attained by 
using both methods. In addition, the er- 
ror introduced by using the fourth- 
order Runge-Kutta method has been 
calculated to four significant digits. 



Table 2: Comparison Y(1) (Runge-Kutta Method) with Y(1) (closed form). 


X 


YR 


YC 


%ERROR 














0.2 


1.26418842E-03 


1.2641776E-03 


0.0009 


0.4 


9.52598452E-03 


9.5260127E-03 


-0.0003 


0.6 


0.0300806999 


0.030080796 


-0.0003 


0.8 


0.0662560792 


0.066256253 


-0.0003 


1.0 


0.119397604 


0.119397847 


-0.0002 


2.0 


0.566721104 


0.566721202 


0.0000 


3.0 


0.865638477 


0.865637729 


0.0001 


4.0 


0.500521919 


0.500520853 


0.0002 


5.0 


-0.358252617 


-0.358252752 


0.0000 


6.0 


-0.962461007 


-0.962459781 


0.0001 


7.0 


-0.728262772 


-0.728261216 


0.0002 



% ERROR = 100 >(YR - YQ/YC 

where, 

YR = Y(1) calculated by Runge-Kutta 
method 

YC = Y(1) calculated by closed form 

Table 2 demonstrates that the 
fourth-order Runge-Kutta method for 
solution of ordinary differential yields 



very accurate results, with minimal ef- 
fort. For those interested in the deriva- 
tion of this method, the references 
listed below should be consulted. 

References 

1. B. Carnahan, H.A. Luther, and J.O. 
Wilkes, Applied Numerical Methods, 
Wiley, New York, 1969. 

2. W.E. Boyce and R.C. DiPrima, 
Elementary Differential Equations, 
Wiley, New York, 1977. 
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An Apple + a card reader + 





= the answer for 
test scoring! H 

SCORE interfaces your Apple with any of three card readers 
(Chatsworth, H El, or Scan-tron™) to permit truly automated test scoring. 

Features: 

• Complete test statistics and frequency distributions 

• Comprehensive item analysis 

• Individualized student feedback 

• Cumulative record keeping (gradebook) capabilities 

• Input from card reader, file, or keyboard 

• Extraordinary editing capabilities 

• Easy to use. menu-driven routines 

• Fast, machine-language processing 

• Complete documentation in plain English 

If you're in education and have an Apple you need SCORE! 

Scientific Software Associates, Ltd. 

P.O. Box 208 • Wausau, Wl 54401 • (715) 845-2066 
Dealer inquiries in viled. 
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DOS FOR AIM- 6 5: f 499 l . 



00 



COMPLETE ! 



INSTANT EASY ACCESS TO YOUR AIM-65 PROGRAMS! 
MANIPULATE OBJECT FILES AT THE TOUCH OF A KEY. 
NEW BYTE-DOS DISC OPERATING SYSTEM. 
153K BYTES ON-LINE. INEXPENSIVELY! 



BYTE-DOS COMMANDS 



^^^^t. 



• FORMAT - Prepares New Disc 

• BAD SECTOR SCAN - QC's Disc 

• DUMP - RAM File to Disc 

• LOAD - Disc File to Ram 

• LIST - Prints Disc File Names 

• ERASE - Eliminate a File 

• UNERASE -File Recovery 

• RENAME - Rename a File 

• COPY - Copy 1 File 

• TRANSFER - Copy Complete Disc 

• KOMPRESS - Optimizes Disc Space 

AND MORE! 

IT'S EASY AND FUN TO USE! 




BYTE MICROSYSTEMS 

CORPORATION 
1 477 ELKA AVENUE, SAN JOSE, CA 951 29 408/446/0559 



f ^^^^^^^^ ^ 




[masler charge]! 


^■mpo 



SEND ME THE FULL STORY! 



Name. 



• BYTE-DOS OPERATES WITH THE AIM-65 MONITOR, 
BASIC, ASSEMBLER, EDITOR, PL/65 AND FORTH. 
ACCESS IS THROUGH PROGRAM I/O AND F1-F3 KEYS. 
BYTE-DOS SUPPORTS ONE OR TWO 5%" OR 8" 
FLOPPYS! 

• BYTE-DOS $499 SYSTEM INCLUDES DISC CON- 
TROLLER CARD, TEAC FD-50A DISC DRIVE (153K 
FORMATTED BYTES), BYTE-DOS SOFTWARE SYSTEM, 
CABLES, CONNECTORS, MANUALS. COMPLETE! JUST 
PLUG IT TOGETHER AND USE! 

AIM-65 is a trademark of Rockwell International 



Company. 
Address — 
City 



State 



ZiP. 



Telephone. 



D home 
D work 



Q I own an AIM-65. 

□ I'm thinking of buying an AIM-65. 

□ Send full BYTE-DOS Data. 
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(flUersa Writer* APPLE II: 

The Keys to Unlimited Graphics 



DRAWING TABLET 

Although VersaWriter operates on a 
simple principle, it produces graphics 
which match or exceed those of other 
digitizers Rugged construction, trans- 
lucent base, easy to use — plugs 
directly into APPLE II. 




' ^'v-- 






GRAPHICS SOFTWARE 

Easily the most capable and com- 
plete graphics software for the home 
computer available. Fast fill drawings 
in 100 colors. All text in five sizes, 
compile and display shapes, edit, 
move and much morel 




UNIQUE OFFER 

See VersaWriter at your local dealer and 
pick up a copy of our demonstration 
disk. The complete VersaWriter hardware 
and software package is a real bargain 
at $299. For more information call or 
write: 





EZ Port Will Solve Your 
Came I/O Problem! 

How many times have you gone through 
the hassle of changing from game 
paddles to joystick, VersaWriter, or 
any other device using the game I/O? 
First, you have to remove whatever is 
sitting on top of the Apple-a video 
terminal, disk drives, printer, etc. 

Next you remove the computer cover 
and try to see what you're doing as 
you switch plugs to the I/O. Then you 
replace the computer cover and what- 
ever was on top of the Apple. 

After all this, you find that you can't 
run the program because the I/O 
device is plugged in backwards or is 
'off by a pin'. 

Sound familiar? 



EZ PORT GAME 

I/O EXTENDER 

FOR APPLE I! 



WHAT IS EZ PORT? 

EZ Port is a specially designed exten- 
sion unit for the Apple game I/O port. 
It's a board with a socket and a two 
foot long cable which plugs into the 
internal I/O port. You attach EZ Port 
wherever you prefer on the outside- 
on the side, the back, or on top. 

EZ Port has a ZIP DIP II socket 
(ZIP=zero insertion force). These soc- 
kets are meant to be plugged into 
many times and will not wear out like 
ordinary sockets. All you do is plug in 
the appropriate device (joystick, pad- 
dles, etc.) and flip the switch to the 
ON position. No pressure is exerted 
on the 16-pin plug until you switch, 
so all the connectors will last longer, 
too! 




EZ PORT MAKES CAME I/O 

CHANCES CONVENIENT, 

OUICK & SAFE. 

Suggested price $24.95 
Ask your local computer retailer for 
EZ Port, or contact: 

VersaComputing, Inc. 

3541 Old Conejo Rd. Suite 1 04 

Newbury Park, CA 91320 

(805) 498-1956 

Dealers inquiries welcome. 

Apple and Apple II are registered trademarks 
ol Apple Computer, Inc. 

ZIP DIP is a trademark ot Textool Products. Inc 



l/ersa Computing, inc 

3541 Old Conejo Road, Suite 104 
Newbury Park, CA. 91320 (805)498-1956 



20 



MICRO - The 6502/6809 Journal 



No. 46 -March 1982 



Legrange 
Interpolating Polynomial 



Use this routine to fit a curve to 
your data. Runs on any machine 
with floating point BASIC. 



Paul H. Muller 
331 Mackay Ave. 
Ventura, California 93004 



Technical literature today is crowded 
with undocumented correction coeffi- 
cients or "flywheel factors." They are 
the interface between theory and the 
real world. If they were easily under- 
standable, then they would be logically 
derived with an appropriate explanation. 



The problem facing scientific pro- 
grammers is the reduction of such em- 
pirical data to a readily usable mathe- 
matical function. Many graphs or 
tables that appear in the literature are 
resolved by using the standard tech- 
niques of analytical geometry and 
statistics. But there are some which 
will make you a candidate for the rub- 
ber room. Fortunately, there is a 
mathematical tool called the Legrange 
interpolating polynomial which can be 
used to approximate even the most 
bizarre-looking functions. It is a tech- 
nique that requires less than IK of 
memory, yet will produce surprisingly 
accurate results. 



The Legrange polynomial is based 
on the idea that by knowing the coor- 
dinates of n number of points, you can 
deduce the coefficients of a polynomial 
of n-1 degree which must pass through 
those coordinates. That polynomial can 
then be used to estimate the value of 
the function between the known points. 



Use of the Legrange polynomial can 
be illustrated by the interpolation of 
the sine function of any angle between 
and 90 degrees, given the actual sines 



for just four angles. Of course this 
technique will work with any set of 
data and is not limited to the approx- 
imation of trigonometric functions. For 
this example, assume you know only 
the following: 

Degrees (x) Sine (y) 



A more concise way to define the 
value of Li uses the product sign I I 



0.0 
30.0 
60.0 
90.0 



0.0 
0.5 

0.866025 
1.0 



as follows: 






Li = 


n 

TT 

j=i 


(X'-Xj) 




'*j 


(Xj - Xj) 



For any other angle, "designated x', 
the sine function for that angle, 
designated y', can be estimated using 
the Legrange polynomial as follows: 

y' =y, L, + y 2 L 2 + y 3 L 3 + ... y n L n 

In this case: ' 



x, = 0.0 

x 2 = 30.0 

x 3 = 60.0 

x 4 = 90.0 



y, = 0.0 
y 2 = 0.5 
y 3 = 0.866025 
y 4 = 1.0 



For this example, we will find the 
interpolated value of the sine of 45 
degrees. Thus, x' = 45.0. 

Where i = 1 to n, Li is calcualted in 
figure 1. 



Thus to arrive at a value for y': 

y' = (-0.0625) + .5 (.5625) + 

.866025 (.5625) + 1 (-0.0625) 

y' = 0.7059 

The actual value for the sine of 45 
degrees is given in most references 
as 0.7071, giving an error of 0.0012 on 
the interpolated value. The sine value 
for other angles could be similarly 
estimated. 



Listing 1 is a BASIC program which 
automates the Legrange technique. The 
program was originally written for an 
OSI Superboard, but should run on any 
BASIC system with only minor modifi- 
cations. The maximum number of 
known coordinates that can be entered 
into the program is arbitrarily set at 25, 
but more can be accommodated by 
changing the dimensioned size of the X 







Figu 


re1 






(x'- 


-x 2 ) (x'-x 3 ) (x'-x 4 ) 




(45-30) (45-60) (45-90) 




L, - 






_ 





0625 


*-*] — 


(x> 


-x 2 ) |xi-x 3 ) (x,-x 4 ) 




( 0-30) ( 0-60) ( 0-90) 






(X'- 


-x,) |x'-x 3 ) |x'-x„) 




(45- 0) (45-60) (45-90) 




L 2 = 










0.5625 


(x 2 


-Xi) (x 2 -x 3 ) (x 2 -x 4 ) 




(30- 0) (30-60) (30-90) 




|x'- 


-x,) (x'-x 2 ) (x'-x„) 




(45- 0) (45-30) (45-90) 




T , - 






_ 




5625 


1-3 — 


(X3- 


-Xi) (x 3 -x 2 ) (x 3 -x 4 | 




(60- 0) (60-30) (60-90) 






(x'- 


-X|) (x'-x 2 ) (x'-x 4 ) 




(45- 0) (45-30) (45-60) 




L„ - 






_ 





0625 


i_. 4 


(x 4 - 


-x,) |x 4 -x 2 ) (x 4 -x 3 ) 




(90- 0) (90-30) (90-60) 
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and Y strings, and by changing the 
"TO" value in the data entry loop. The 
program in listing 1 consumes 930 
bytes, and will run in about 12 seconds 
on the 6502-based Superboard when 25 
data points are used. 

The program first queries for the x,y 
coordinates of the known points. Any 
number of pairs up to 25 may be 
entered. To get out of the data entry 
routine, simply input END, END in 
response to the query. The program 
then asks for x', and displays the inter- 
polated value y' a few seconds later. To 
generate another interpolation, enter R 
in response to the program query. 
Entering E at this point will exit the 
program. To change or add data points, 
the program must be run from scratch. 
The results of running the sine inter- 
polation example are shown in the 
sample run. 

There are a few guidelines to follow 
for best results. It is essential to under- 
stand that the program generates a 
polynomial that will exactly intersect 
only the given points. The assumption 
is that the interpolated points will 
closely (but not exactly) fit the curve of 
the unknown function. When using the 



program to emulate a graphical fly- 
wheel factor, it is best to plot a few in- 
terpolated points on the same graph to 
see how well the program is predicting 
the actual values. You may need to ad- 
just the data points to achieve a more 
precise fit. The more rapidly the instan- 
taneous slope of a function changes, 
the greater the number of data points 
needed to obtain a good interpolation. 

Take a piece of graph paper and 
draw a smooth continuous function, 
freehand. (Only one value of y for each 
X; no fair doubling the curve back on 
itself!) Take about four coordinates 
spaced equally along the curve and 
enter them into the program. The inter- 
polations for intermediate values will 
surprise you with their accuracy. 

This program is intended only to 
demonstrate the basic method of using 
the Legrange polynomial. It can be easily 
adapted as a subroutine for larger pro- 
grams where the known points could 
be taken from DATA statements. 
There are intriguing possibilities for 
systems with advanced graphics. Also, 
integrals and roots may be estimated 
for functions where there are only a few 
known data points. 



Sample Run 

RUN 

LEGRANGE POLYNOMIAL 

ENTER X 1 , Y 1 

0,0 

ENTER X 2 , Y 2 

30,.5 

ENTER X 3 , Y 3 

60,. 866025 

ENTER X 4 , Y 4 

90,1 

ENTER X 5 , Y 5 

END, END 

ENTER X' 45 

J' = 0.705889 

RUN AGAIN OR EXIT? R 

ENTER X' 25 



Y' = 0.423322 

RUN AGAIN OR EXIT? E 

END 



Gosub International, Inc. 



GOSUB'S MX80/70 Friction Feed Kit $49.95 ppd 



Use Inexpensive Roll Paper • 
Does Not Affect Pin-teed Use • 

PRINTERS PRINTERS 

EPSON MX100...S825 ppd 



• Use Single Sheet Paper 

• Use Your Own Letterhead 

PRINTERS 
EPSON MX80...S545 ppd 

THE PRINTER STAND $29.95 

SAVE MONEY AND SPACE— Holds almost any printer that uses 
9'/2"-size paper or forms. Made from '/«" acrylic, allows 3" ol paper 
or forms to be stacked under printer. Great for use with bottom load 
printers! Fits MX80/70-Microline 80's BASE 2-850 Bytewriter-1 and 
many more! 

AUTHORIZED DEALERS FOR THE GOSUB FRICTION FEED KIT 
USA— Alpine Computer Center, 2526 S. Alpine Rd.. Rockford. III. 
61108, (815) 229-0200: OMEGA Micros, 3819 West Michigan St.. 
Milwaukee, Wl 53208, (414) 933-6088: EXATRON: 181 Commercial 
St., Sunnyvale, CA 94086, (800) 538-8559/CA. (408) 737-7111. 
CANADA— Mlcrowest Diet. Ltd., 1940 Larson Rd., North Van- 
couver. B.C.. Canada V7M 2Z8, (604) 988-9998 or 988-6877. 
AUSTRALIA— Computer Campus Pty. Ltd., 11 Rundle Street, Kent 
Town. South Australia, 5067, ph. 08.424826, telex 88156. 

STRATEGY SIMULATIONS FOR THE TRS-80 



MERCENARY FORCE 

Command a mercenary army. 
Decide the number of men, 
type of weapons, armor, air 
support, medical aid and 
transports. Battle the enemy 
in jungles, underwater, on 
moons and in space. 
(1-4 players) 
TRS-80 L2/16K $16.95 



Gosub Int'l., Inc. 

501 E. Pawnee, Suite 430 

Wichita, KS 67211 

(316) 265-9859 



SPACE MERCHANT 

Build an Empire in the stars. 
Choose your cargo, means of 
shipping, and security. Risk 
pirates, ion storms, engine 
failure and other hazards 
while you try to become a 
Space Merchant. 
(1-6 players) 
TRS-80 L2/16K $9.95 



80 SPACE RAIDERS 
Starship Simulator and Combat Game 
This is the most realistic combat space simulation available for any 
computer system anywhere! Operator is placed in a rapidly moving 
ship looking out through a window into the depths of space. 
Thousands of stars appear in the distance and part toward the screen 
edges as the ship flashes past. Forward and aft views available at any 
time. Accurate celestial navigation using both XYZ and spherical 
coordinates! Comment from Aug. '81 80 Microcomputing: "May be the 
ultimate Star Trek-type game and, possibly, the most complex micro- 
computer game ever attempted"! Fast action graphics never stop! 
Model 1 /Level 2/1 6K $24.95 



SOFTWARE 



Software for the VIC 20 and Color Computer 
SPACE MERCHANT— See Stragegy Simulations for the TRS-80 
WARRIOR — Head to head combat in a game where you and your op- 
ponent are the rulers of warring city-states, each trying to destroy the 
other. You decide how many of your population will be warriors, 
farmers, factor workers, and scholars. $9.95 



YAHTZEE I 

GAME PACK #1 Quarter Horse and Yahtzee 

GAME PACK #3 Warrior and Space Merchant 



$10.95 
$14.95 

$14.95 



# 



Kansas residents add 3% sales tax 

All prices subject to change without notice 

FREE CATALOG UPON REQUEST 

(TRS-80 is a trademark of Tandy Corp.) 

Dealer Inquiries Invited 
SEND CHECK OR MONEY ORDER 



GOSUB International (New England Division) 

P.O. Box 2566 

Framingham, MA 01701 

(add 5% sales tax) 



GOSUB 
P.O Box 275 

Wichita, KS 67201 
(316) 265-9992 
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Listing 1 

10 RE&* **««* LEOKAKCE INTERPOLATING POLYNOMIAL ***• 

20 REV. «***» BY PAUL H. KULT.ER - JULY 1981 **«« 

30 DIM X(25),Y(25) 

40 N=0 

50 PRINT 

60 PRINT" LEGRANGE POLYNOMIAL" 

70 PRINT 

80 FOR 1=1 TO i 25 

90 PRINT" ENTER X";I;", ";"Y";I 
100 INPUT XS.Y3 
110 IP XS="END" THEN 160 
120 X(I)=VAL(X$) 
130 Y(I)=VAI(Y$) 
140 N=N+1 
150 NEXT I 
160 FRINT 
170 PRINT 

180 INPUT" ENTER X'";XP 
190 F=0 

200 FOR 1=1 TO N 
210 S=l 
220 D=l 

230 FOR J=l TO N 
240 IF J=I THEN 270 
250 S=S»(XP-X(J)) 
260 D=D»(X(I)-X(J)) 
270 NEXT J 
280 I=S/D 
290 F=F+(Y(I)«L) 
300 NEXT I 
310 FOR 1=1 TO 5 
320 PRINT 
330 NEXT I 
340 FRINT" Y' =";F 
350 PRINT 
360 PRINT 

370 INPUT "RUN AGAIN OR EXIT";C3 
380 IF CS="R" THEN 160 
390 IF CS="E" THEN 410 
400 GOTO 350 
410 END 



Note: VAL(XS) converts the string variable X3 to its 
numerical value 



JMCftO 



WHEN DID WE ORDER IT? 
WHERE IS IT LOCATED? 
HOW MANY DID WE BUILD? 
WHAT IS MY INVENTORY WORTH? 



ANSWER THESE QUESTIONS 

AND MORE 

WITH 

KEYSTONE DATA'S 

INVENTORY MANAGEMENT SYSTEM 



BILL OF MATERIALS PROCESSING 
AUTOMATIC OR MANUAL REORDERING 
REVIEW OF DAILY ACTIVITY 
MATERIAL & LABOR COSTING 
DISTRIBUTED PROCESSING CAPABILITY 
REMOTE SITE COMMUNICATIONS 
LINE ITEM CROSS REFERENCE BY - 

ASSEMBLY 

VENDOR 

PART TYPE 
COMPREHENSIVE USER'S MANUAL 

AVAILABLE FOR 
HDE DISK SYSTEMS 



CONTACT 




EVSTDME 



DATA CONSULTANTS. INC. 

CUSTOMER SERVICE 
P.O. BOX 606 
YORK, PA 17405 

717-848-5666 



MEMBER: 

York Area Chamber of Commerce 

National Federation Independent Businesses (N.F.I.B. 
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SIN(X) 
The Hard Way 



Microsoft BASIC uses a series 
expansion formula to calculate 
the sine of an angle. The logic 
of this machine language 
routine is emulated here in a 
BASIC program. 



Earl Morris 
3200 Washington 
Midland, Michigan 48640 



Nearly every BASIC interpreter has 
built-in trigonometric functions. A 
simple call, Z = SIN (X), magically pro- 
duces the sine of the angle X. This 
function is very useful in plotting in- 
tricate patterns and in games for find- 
ing the trajectory of phasers, rockets, 
bombs, and the like. This article probes 
the algorithm used by Microsoft BASIC 
to calculate the sine function. A way to 
increase the speed of the sine routine is 
suggested if some loss of accuracy can 
be tolerated. 

Before we look at the programming, 
we must understand the mathematics. 
The sine of X is defined by an infinite 
series expansion. 

Y3 Y5 Y' Y« 

SIN (X) = X - — + — - — + — 
3 I 5 ! 7 ! 9! 

to infinity 

This equation is valid for all values of 
X, but the equation has an infinite 
number of terms. It is difficult, even for 
a computer, to add up all the terms. 
Any desired accuracy can be obtained if 
enough terms in the series are used. 
How many terms are enough? The 
answer depends on the magnitude of X. 
The series converges quickly for small 
values of X, but more slowly as X 
becomes larger. If X < < 1, then X to a 
positive power rapidly becomes vanish- 
ingly small. For example if X = 0.1, 



then X 3 = .001 and X" 5 = .00001. All 
the terms except the first can be 
ignored, leaving 

SIN (X) = X 

This simplest approximation begins to 
fail as X is increased above .4. The 
following table shows the actual values 
of sine for small X. 



SIN (.05) 
SIN ( .1) 
SIN ( .2) 
SIN ( .4) 



.04998 
.09983 
.19867 
.38942 



If X = 1, then in the series expan- 
sion all the terms X" = 1 . However, 
each higher order term is becoming 
smaller due to the N! in the denomina- 
tor. In the 5th term, 9! = 362880 so 
that this term adds 1/9! = .0000027 to 
the sine. Higher order terms can cer- 
tainly be ignored. 

If X > > 1, then the X" in the 
numerators can also be large. If 
X = 10, then the 5 th term becomes 
1,000,000,000/362880 and beyond the 
ability of my pocket calculator to carry 
enough significant decimal places. 
Eventually the N! in the denominator 
will be greater than the X n in the 
numerator and any further terms will 
become insignificant. However, every 
term in the sum must be calculated to 
be accurate to as many decimal places 
as you wish in the final sine value. For 
large values of X, this becomes im- 
possible in a practical sense. 

Since the sine is a periodic function, 
several tricks are used to shorten the 
amount of calculation involved. Large 
values of X can be avoided by using the 
trigonometric identity SIN (X + 2n) = 
SIN (X). That is, any angle greater than 
one revolution can be reduced by 
multiples of 2ir without affecting the 
sine. Thus the argument X can always 
be reduced to less than 6.28 or 2n. 
Using the additional relationship SIN 
(X) = SIN (n/2 -X) the argument can 
be further reduced to -n/2 < X < n/2. 



Thus the sine of any angle can be ex- 
pressed as the sine of an angle between 
- 90° and 90°. Since X must always be 
reduced to less than 1.57, the sine can 
be calculated to better than six-digit ac- 
curacy by using only the first five terms 
of the infinite series. 

The form of the sine equation given 
above is fine for human use, but a little 
rearranging is necessary for an efficient 
computer routine. First a change in var- 
iables is made by substituting Y = 
X/2n. 



SIN (X) = 2nY- (2^ + 12^ 
3i 5 ! 



(2 n Y ) 7 (2 it Y) 9 



7 ! 



9i 



Then, substituting the numerical value 
for n and evaluating the factorials gives 



SIN 


(X) = 


A 
D 


Y + B*Y 3 + 
*Y 7 + E*Y 9 


C 


•Y 5 




A 


= 


6.2831 








B 


= 


-41.3417 








C 


— 


81.6052 








D 


= 


- 76.7058 








E 


= 


42.05869 







Again, for the benefit of the computer, 
the equation is rearranged to give 

SIN(X) = Y (A + Y 2 (B + Y 2 (C + Y 2 
(D + Y 2 (E))))) 

This rather strange equation is very 
neatly solved by a programming loop. 
Starting with the innermost value E, 
the next term is always found by multi- 
plying by Y 2 and adding the next con- 
stant. This procedure is repeated for as 
many terms in the series as are desired. 
The final step is to multiply by Y. 

Following is a BASIC program to 
calculate the sine of an angle by the 
logic described above. The value found 



24 



MICRO - The 6502/6809 Journal 



No. 46 -March 1982 



is compared to your built-in sine 
routine. The two should be identical. 

Lines 60 to 110 divide the argument 
by 2n and take the fractional part of the 
answer. This reduces the angle to less 
than one revolution. Lines 120 to 220 
reduce the angle to between - 90° and 
+ 90°. The reduced argument is stored 
in A4 while its square is stored in A8. 
Lines 260 to 350 add up the terms of 
the series expansion. The number of 
terms added is controlled by the 
variable Bl. 

With some sacrifice in accuracy, the 
sine routine can be quickened by com- 
puting fewer terms in the series. In the 
BASIC program this is done by changing 
the loop counter from "4" to "3" and 
deleting the next piece of data 
(39.7109). The loop counter can be 
decreased to 2 and then to 1 with fur- 
ther loss of accuracy. Table 1 was 
generated using from one to five terms 
in the sine equation. 

Note that the worst loss in accuracy 
is at the largest value of X. Even the 
three-term approximation of sine is ac- 







Table 1 








Number of Terms in Equation 






(X) 


5 


4 3 


2 


1 


.1 


.09983 


.09983 .09983 


.09983 


.1000 


.4 


.38942 


.38942 .38942 


.38933 


.4000 


.8 


.71736 


.71736 .71740 


.71467 


.8000 


1.2 


.93204 


.93203 .93274 


.91200 


1.200 


1.5 


.99749 


.99740 1.00078 


.9375 


1.500 



curate to better than 1%. For most 
games and even plotting high-resolution 
patterns, this accuracy is sufficient. 
However, you will not increase the 
speed of your program by using this 
BASIC program to calculate sines. If 
you understand the logic of the 
machine language sine routine, you can 
relocate it into RAM and change the 
loop counter to increase speed or ac- 
curacy as needed. 



The BASIC program follows exactly 
the same logic as the machine sine 
routine in OSI ROM BASIC. The 
variables Al and A2 correspond to the 
primary and secondary floating point 
accumulators. Data must be moved to 
these registers before any mathemati- 
cal operations can be done. Thus the 
BASIC program is written in a rather 
strange fashion to simulate the 



machine code. 



(Continued on page 28) 



"RS-80COL0R 

COMPUTER 

SOFTWARE 

FORTH FOR THE TRS-80 COLOR COMPUTER DISK SYSTEM 

Trying lo gel conirol of youi Color Computer?? Tired of translating HEX lo decimal?' 
Tired of remembering where the VDG and SAM are and how lo program them?? Want 
to write machine language code with assembly language mnemonics instead o' 
POKES?? 

Want to write programs m half the time?? Want to write lots ol small pieces of code 
that you can pul together in seconds lo do BIG JOBS??? Want a language that is at 
least 5 to 10 times taster than BASIC??'' Want lo learn everything there is to know 
about FORTH, with the best manual on the market, including tots of examples o' 
FORTH applications, and detailed explanations of how everything works?? 




FORTH 

Includes Editor, 6809 Assembler. CAAOC 
String Functions. Disk Data File v>CIU^ *? 

Operations and Much Much More 1 W V 



J^ 



THE COLOR TOOLKIT 

Utility and Diagnostic Disk Programs by Dick Bartholomew 
The COLOR Toolkit is a set of Disk diagnostics and Disk utilities for the TRS-80 Color 
Computer Disk System. Dick Bartholomew, well known for his utility programs 'o< 
FLEX systems, has created a package of invaluable tools for Ihe serious programmer 
These include: Reading FLEX disks, Writing FLEX disks. Repairing Radio Shack 
disks. Extended directory, and many, many more 

PRICE ONLY $49.95 on RS disk. 

USA ADO $2 00 FOR STANDARD UPS SHIPPING & HANDLING 

FOREIGN OHOEHS ADD 10% SURFACE. 20°'c AIRMAIL 



FRANK HOGG 
LABORATORY 

130 MIDTOWN PLAZA, SYRACUSE, NY 13210 (315) 474-7856 



PRINT ][ 

THI ULTIMATE PRINT STATEMENT 
FOR THI APPLE II COMPUTER. 



Standard Apple Output 


PRINT ][ Output 


$1234.56 


$1234.56 


$12 


$ 12.00 


$1.9 


$ 1.90 


$.75 


$ .75 


$765 


$ 765.00 



Print "$"; I 
(without Print It) 



Print §1 

(Field Width 8 with 

2 decimal places.) 



D Updates Applesoft PRINT to accept: 

• User-specified print formatting. 

• X. Y cursor positioning. 
D Simplifies tabular displays. 

n Transparent to user — not affected by re-booting. 

IP YOUR TIME IS WORTH MONIY, 
THIN YOU NEED PRINT If. 

Available at your local dealer for S24.95 or write to: 
Computer Systems Design 

2 139 Jackson Blvd. 

Rapid City. SD 57701 

1605)341-3662 



VISA 



6B: 



^ 



/^ 



E 



K 
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Not Just Software 
But The 
Company 
Behind It. . . 




INDUSTRY PIONEERS 

Southwestern Dora Systems has been o 
pioneer in producing innovative software 
for the Apple II since its inception in the 
lore 1970's when they entered rhe software 
marketplace with rhe introduction of 
Roger Wagner's APPLE-DOC and THE 
CORRESPONDENT. Mounting sales and 
inreresr contributed to rhe company's expan- 
sion including a truly professional staff, 
combining quality and reliability with both 
producr and support perperuaring their 
special insight into realizing and satisfying 
consumer needs. 

From rhe outset, they established a MONEY- 
BACK GUARANTEE as evidence of their 
dedication to supplying only rhe finesr quality 
producrs available. Software of such un- 
compromising quality became the corner- 
stone for their success and is the reason for 
their recognition as an indusrry leader today. 

SOFTWARE SPECIALISTS 

Minimal scrutiny will reveal SD5 software to 
be the ripest, juiciest fruit on the provetbial 
apple software free. Succulent appetizets 
like A.C.E., Z-TERM, APPLE-DOC, ASCII EXPRESS 
and LISTMASTER have already established 
SDS as the UTILITY AND COMMUNICATIONS 
SOFTWARE SPECIALISTS! Bur that's only the 
beginning! SDS is bursringar rhe seams wirh 
a bumper crop of quality software just 
recenrly made available! They're sensa- 
rional! Hove o byte of: 

ASCII EXPRESS — The Professional: The 

advanced version of rhe classic com- 
munications package. 

THE ROUTINE MACHINE: Allows anyone to 
pur machine language in their Applesoft 
programs. 

DOUOLETIME PRINTER: Print files while 
simultaneously running another program. 



MUNCH-A-DUG: Eosily de-bug machine 
language programs. 

MERLIN: A full fearured 6502 macro 
assembler. 

UNIVERSAL GRAPHICS: Now you can print 
any Hi-Res image on almost any prinrer. 

FINANCIAL MANAGEMENT SYSTEM II: The besr 
home and small business accounring 
package available. 

NORAD: A fasr moving Hi-Res arcade gome. 

These recenr releases nor only include 
superior utility and communications software 
but illustrate rhe SDS advance into the 
business and education computer gome 
fields. The full line of SDS products are pro- 
fessionally and arrracrively packaged and 
should be available to the retail customer for 
inspection through your local dealer, or write 
to SDS for your complemenrory producr 
guide. Dealers should conracr Joanne 
Johnson regarding promorional mareriols 
and software samplers. 

THE PEOPLE 

5DS is more rhan jusr o list of products though. 
It's the people that moke the difference. 
Togerher, rhe entire sroff ar SDS will conrinue 
to offer you, rhe software user, rhe highesr 
quality product available. 

ROGER WAGNER, founder and president of 
Southwestern Dora Sysrems, is o person of 
inregriry and repurarion. and has esroblished 
himself as an aurhority in his field. In addition 
ro rhe successful programs he has ro his 
credir, he is also author of rhe highly 
acclaimed ASSEMBLY LINES articles in Softalk, 
now available in convenienr book form. A 
firm believer in quality assurance, Roger 
stakes his repurarion on every producr he 
endorses. Unless he is confidenr of its per- 
formance and ceirain rhar ir is rhe besr 
producr of irs kind available, ir will NOT carry 
rhe SDS name, shielding borh his company 
and irs customers from rhe redium involved 
wirh markering second class merchandise. 




A ROGER WAGNER 

SDS Founder & Presidenr. Aurhor 

B. SDS producrs are handsomely 
packaged, supported by exrensiv 
adverrising and (C.) are availabk 
from retoil software ourlefs 
nationwide. 

D SDS personnel explore every aspe 
of o porenrial product's marketlr. 
prior ro moking any publicarion 
commirmenrs. 

E. Office Manager, Tom Burns revie> 
a software package for accuracy 

F. Vice President Joanne Johnson 
provides rhe personal touch, ked 
cusromers & dealers up ro dare cj 
rhe laresr SDS projects. 

It's the torol involvement in ever) 
aspect of rhe software indusrry th 
makes SDS unique. 



J 




•RcT 



DESIGN: DOUG WESTERKjkMP/PHOTOGRAPHY: IAN CUMMINGS 




JOANNE JOHNSON, 5DS vice presidenr and 
dealer sales director handles all rhe com- 
pany's markering acriviries and does a 
marvelous job. She has an excellent rapport 
with dealers nationwide and she's always 
searching for innovative methods of 
increasing their retail sales. Suggestions are 
always welcome, so drop her o line or give 
a call today! 

TOM BURNS is Southwestern Data System's 
technical writer and software acquisition 
manager. Tom keeps authors informed 
about latest developments, and also is 
continually looking for high quality packages 
to add to the SDS product line. 

JERRY BURNS provides full rime technical 
support ro both dealers and users of SDS 
software. Jerry also supervises production 
schedules and qualify control, allowing SDS 
ro quickly fill ony order, large or small. 



Author's Corner 

IF YOU HAVE WRITTEN A 
PROGRAM WORTH PUBLISHING. 
READ THIS! 



Southwestern Data Systems, on industry 
pioneer in innovative sofrware for rhe Apple 
II, is always looking for ourhors. There are 
no limitations on the size or type of software 
you con submit — utilities, communication, 
business, education, or games — rhe only 
requirement is that it must meet the quality 
standards which typify all SDS products. When 
you join the SDS team, you get the benefits 
of a professional support staff experienced 
in providing all you need ro get your program 
ro marker. Here ore some of rhe ways we 
help you: 

• Technical Programming Assistance 

■ Unique Copy Protection With Limited 
Backups 

» Successful Marketing Strategies 

■ Assistance in Writing the Manual 
o Professional Product Artwork 

Qualify Nationwide Advertising 

• Superior Packaging 

• Notional Distribution 

° Highest Royalties Paid Monthly 
•j Customer Service Support 

This is rhe opportunity you hove been waiting 
for, a chance to marker your program with 
the finest publisher in rhe software industry. 
Ler Southwestern Data Systems' reputation 
and proven frock record for success go ro work 
for you. If you think you have what we 
want — a unique and distinctive software 
package — please call ot wtite us today! 

We're looking forward ro meeting you! 
Stop by and see us at the 7th Annual West 
Coast Fair in Son Francisco! 



10159-1 Mission Gorge Road • Santee, California 92071 . Telephone: 714/562-3670 



(Continued from page 25) 

The variables A4, A8 and Bl repre- 
sent page zero addresses. The machine 
code is stored in ROM starting at 
$BC03, and the data table begins at 
$BC7C. The data is stored in four-byte 
floating point format (except for the 
loop counter "4"). The data table can 
be read by using the following trick: 
Cold start BASIC and in immediate 
mode enter AA = 1 . Then jump to the 
monitor and look at the hex data stored 
at $0303 and beyond. You will find 



$0303 41 


= "A" 


$0304 41 


= "A" 


$0305 81 


This is the floating 


$0306 00 


point expression 


$0307 00 


for 1 


$0308 00 





The first four bytes in the sine data 
table at $BC7C are 83 49 OF DB. Put 
this hex data into memory starting at 
$0305. Then warm start BASIC and 
PRINT AA. The value of AA is now 
6.28319 or the first value in the data 
table of the BASIC program. The re- 
mainder of the data table can be decoded 
in a similar fashion. Be careful of the 
single byte "4" at $BC84. Those of you 
with sharp eyes will note the value for 
"E" from the theoretical equation does 
not exactly agree with the value in 
OSI's data table (42.0 vs. 39.7). 

JMCftO 



SINE ROUTINE 



REM 

REM 

REM BY EARL MORRIS 

REM 

CLEAR 

INPUT "ARGUMENT FOR SINE" ;A1 

REM USE INTERNAL SINE 



10 

15 

20 

25 

30 

40 

50 PRINT SIN (Al);: 

60 A2 = Al 

70 READ Al: REM GET 

80 Al - A2 / Al: REM 

90 A2 - Al 

100 Al »= INT (Al) 

110 Al - A2 - Al: REM 

120 READ A2: REM GET 

130 Al = A2 - Al 

140 IF Al > =0 THEN FLAG 

150 IF FL = 1 THEN 180 

160 Al = Al + .5 

170 IF Al < THEN 190 

180 Al = - Al 

190 RESTORE : 

200 Al = Al + A2 

210 IF FL = 1 THEN 230 

220 Al ■ - Al 

230 A4 - Al: REM 

240 Al ■ Al * A4 

250 A8 - Al: REM 

260 READ Bl: REM 

270 READ A2: REM 

280 Al - Al * A2 

290 READ A2: REM 

300 Al - Al + A2 

310 A2 - A8: REM 

320 Bl = Bl - 1 

330 IF Bl < > 

340 A2 = A4: REM 

350 Al = Al * A2 

360 PRINT Al: REM 

370 GOTO 10 

380 DATA 6.283185 



2*PI 
DIVIDE BY 2 



PI 



TAKE FRACTIONAL PART 
.25 



READ A2: READ A2: REM USE .25 AGAIN 



FIRST QUADRANT ARGUMENT 

ARGUMENT SQUARED 
TERMS IN SERIES EXPANSION 
GET COEFFICIENT 

GET COEFFICIENT 

GET ARG SQUARED 

THEN 280 
GET ARG 

PRINT CALCULATED SINE 

.25,4,39.7109,-76.575,81.6022 



390 DATA -41.3417,6.283185 



Why do unnecessary surgery 
on your Apple? 



Sooner or later, you're going to need a 16K 
memory-expansion for your Apple. When you 
do, we suggest you buy it on the card that doesn't 
require poking about on the motherboard — nor 
removing a RAM chip, installing a strap, etc. 

The Ramex 16 RAM Board just plugs in. It's 
simple, reliable, and does its own memory 
refresh, with no additional connections. 



Run Pascal, Fortran, FP, INT and 
.other alternate languages, 56K 
CPM with a Z80 Softcard, increase 
usable memory for Visicalc by 16K. 
The possibilities are endless. Do 
it with the finest, closed-track 
engraved, epoxy sealed, 16K 



Apple and Applesoft are registered trademarks of Apple 
(xnnputcr, Inc Pascal is a registered trademark of the Regents of 
the U of C . San Diego Visicalc is a registered trademark of 
Personal Software CPM is a registered trademark of Digital 
Research, Inc Z80 is a registered trademark of Zilos. Inc 
Softcard is a registered trademark of Microsoft 




board available — the Ramex 16. And do 
it without unnecessary surgery on your Apple. 

In spite of its quality, the Ramex 16 costs less 
than most other expansion boards — just 
$139-95- And it comes with a one year limited 
warranty, instead of the usual 90 days. 

et the Ramex 16 from your local dealer, 
or order direct. Visa and Mastercard 
holders call toll-free, 1-800-835-2246. 

CA/W° 

OAAEGA AAtCROWARE,INC 

222 SO. RIVERSIDE PLAZA 

CHICAGO, IL 60606 

312-648-1944 

^ Look, ma, 
no straps! 



for fast development of fast, tight programs. . . 

step beyond FORTH, to 

RPL 




L_^— iV_A 



High speed, low memory requirements, 
and user-friendly development tools 
are no longer mutually exclusive. 
Reverse Polish Language, a FORTH- 
like language now available for the 
PET and CBM computers, is faster 
than FORTH, easier to debug than 
BASIC, and more space-efficient than 
any other language known, including 
assembly language. Here's what 
Loren Wright, MICRO magazine's 
PET Vet, says about it: 

"RPL is generally faster 
and more conservative of 
memory 1 than FORTH . . . 
RPL will serve well the 
need for a language that 
is faster than BASIC yet 
easier to program than 
assembly language. The 
package is well-thought- 
out and well-documented." 

RPL uses the ordinary Commodore 
BASIC screen editor for program ent ry 
and editing. And the full power of 
BASIC, in both immediate and pro- 
gram modes, remains available to the 
user throughout a development 
session. The RPL Compiler and Sym- 
bolic Debugger reside in the top 8K 
of memory, ready to be invoked at 
any time, directly from BASIC, via 
the commands "compile" and "debug". 
RPL source code is saved to disk or 
cassette just like BASIC source, and 
is compiled memory-to-memory for 
quick compilation turnaround and 
instant source accessibility. RPL sup- 
ports separate compilation of program 
modules through the use of the com- 
piler's "global symbol" features, 
which also permit the development 
of true "subroutine libraries". 

The language itself is concise and 
straightforward, making it much easier 
to learn and master than most other 
computer languages. A total of only 
47 special keywords and symbols 
provide the following capabilities: 

• Nestable, multi-line IF . . . THEN . . . 
ELSE constructs. 

• Nestable FOR . . . NEXT loops. 

• Named subroutines and functions 
of arbitrary length. 

• Compile-time constants and code 
ORGability. 



• Full 16-bit integer arithmetic and 
logical manipulations. 

• Built-in character-string handling. 

• Stack-management directives 
including n-index, n-rotate. 

• GET, INPUT, and PRINT operators 

• Forward and backward symbolic 
references, including GOTO. 

• Easy access to machine language. 

• Predefined arrays with numeric 
and/or string contents. 

• Local and global symbols. 

. . . and much more. The 60-page RPL 
manual is clear and well-organized, 
making the language easy to learn and 
easy to use: Loren Wright says 
that "the documentation is about 
the best I have ever seen." 

The Samurai RPL Symbolic Debugger 
is a screen-oriented, object-level 
debug facility using a soft -key-driven 
command syntax for ultra-ease of use. 
Features included are: 

• Full visibility into both stacks at 
all times. 

• Single-stepping, with source-level 
next-step display. 

• Breakpointing in both auto-single- 
step and "go" modes. 

• Address specification using ex- 
pressions with symbols. 

• Stack-edit capability on both stacks. 

• Debugger video usage is trans- 
parent to target program. 

• Extra run-time error-checking 
during debugging only. 

. . . and, of course, much more. Here's 
what Robert Baker, author of the 
PET-pourri column in Kilobaud Micro- 
computing, says about it: 

"RPL offers an unbeatable 
combination of speed, 
memory space efficiency, 
and ease of use. It is well- 
designed, well-imple- 
mented, and well-docu- 
mented, and it deserves 
the serious consideration 
of every PET/CBM pro- 
grammer. The Samurai RPL 
Symbolic Debugger, in 
particular, must be seen to 
be believed." 




The compiler includes a special 
option making it very easy for 
you to create "execute-only" object 
modules from which all develop- 
ment-utility software and memory 
allocations have been excluded. The 
price you pay for the compiler also 
includes an unlimited license to resell 
the RPL "run-time library" (not the 
compiler) in conjunction with "execute- 
only" application object modules of 
your own. 

The Samurai RPL Compiler is now 
available at the special introductory 
price of $49.95, which includes the 
manual in a nice 3-ring binder and 
First Class postage within the con- 
tinental U.S. Media supplied is of top 
quality, and is nor copy-protected 
(this permits you to make backups 
for yourself without hassles). Com- 
piler and debugger together are 
$80.91, complete. Manuals are 
available separately at $10.00 and 
$4.00, respectively, and will be credited 
toward software purchase. Please 
specify machine type, memory size, 
ROM version, and media type 
(cassette, 4040, or 8050 diskette) 
when ordering. 



Order anytime, day or night, 
7 days a week 

Outside Florida: 

800-327-8965 

(ask for ext. 2) 
Within Florida: 305-782-9985 



VISA and Master Charge accepted 
All orders shipped within 2 days of receipt 

(For technical inquiries, please phone 
305-782-9985) 

For more information, or to order by 
check or money order, please write: 

SAMURAI SOFTWARE 

P.O. Box 2902 

Pompano Beach, FL 33062 




NEC 

Microcomputer 




PO8001A 32K Computer CALL 

PC-8012A I/O Unit W/32KRAM CALL 

PC-80I3A Dual Mini-Disk Drive Unit CALL 

PC-8001 MulriCardware(FDI/0&32K) CALL 

CP/M 2.2 Operaling System lor NEC 129 

WordStar conllgured for NEC 299 

SuperCalc configured for NEC 279 

NEC Wordprocessor & Accounting Software CALL 

Many more software packages and languages: 
(Pascal. Fortran. Cobol. etc) are available configured for 
the NEC 8001A Computer. 
Please call or write for a product price list. 

A ATARI 




j 

ATARI 800 16K 

CALL FOR BEST PRICE 

Atari 400 w / 16K 349 

410 Program Recorder 65 

810 Disk Drive 449 

825 80 col. 7x8 Dot matrix impact printer 699 

822 40 col. Quiet Thermal Printer 349 

850 Interface Module 159 

Atari 16K Ram Module 69 

Axlon Ramcram 32K Module 189 

Asteroids. Missile Command and Star Raiders ... 35 ea. 
SPECIAL ATARI CATALOG AVAILABLE 

Video Monitors 

Amdek/Leedex Video 100 12" B&W 149 

Amdek/Leedex Video 100G 12" Green Phospher ... 179 

Amdek (Hitachi) 1 3" Color w /audio output 389 

NEC 12" Green Phospher Display JB-1 20 1M CALL 

NEC 1 2" Lo-Res Color Display CALL 

NEC 1 2" Hi-Res RGB Color Display CALL 

Sanyo 9" B&W Display 185 

Sanyo 9" Green Phospher Display CALL 

Sanyo 12" BSW Display 269 

Sanyo 12" Green Phospher Display .285 

Sanyo 13" Color Display 449 

Zenith 12" Green Phospher Display ZVM-121 149 



ZENITH 

12" 
GREEN 




$149 



ES-100 



California Computer 
Systems 

Floppy Disk Controller $369 

64K Dynamic Ram Board. 200ns $499 

Z-80 CPU board w monitor ROM $269 

16K Static memory board. 200ns 369 

32K Static memory board. 200ns 599 

S-100 12 Slot Malnlrame 475 

4-Port Serial Interface 299 

2-Port Serial /2-Port Parallel Interface 299 

4-Port Parallel Interface 229 

H commodore 





Personal Computer 

Color " Sound " Graphics j, -— ._ _ _ 
Call or write for more info. 'Ik M *-^ ffB 
Disk drives available soon! ^^ *■# ^^ ^r 

Printers 
Silentype 

w I Apple II interface 

$349 

Epson 
MX-80 or 
MX-80 FT 

CALL 

Anadex 9501 w/2K Buffer 1349 

C. Itoh Starwriter 25 CPS dalsywheel 1449 

C. Itoh Starwriter 45 CPS dalsywheel 1649 

Epson MX-70 CALL 

Epson MX-80 & MX-80 F/T CALL 

Epson MX-100 CALL 

NEC 8023 Impact Dot Matrix 695 

NEC Spinwriters (Latest models) CALL 

Paper Tiger IDS-445G w /graphics 699 

Paper Tiger IDS-460G w/graphics 949 

Paper Tiger IDS-560G w/graphlcs 1249 

Silentype Printer w/Apple interface 349 

Qume Sprint Dalsywheels (Latest models) CALL 

ORDER TOLL FREE 

800-854-6654 

In California and 
outside continental U.S. 

(714) 698-8088 

Telex 695-000 Beta CCMO 



Mdppkz computer 

^■W Authored Dealer 




APPLE II PLUS 



'..* 



16K's, 48K's, 64k's 

'48K Apple with I6K RamBoard 

CALL FOR 
BEST PRICES 

APPLE 

DISK 

DRIVES 

DRIVE ONLY OR 

W/CONT 

& DOS 3.3 

CALL FOR PRICES 

SPECIAL APPLE CATALOG AVAILABLE 




16K RAMBOARD by ConComp 

for Apple II Computers 



FOR ONLY 



$129 95 




AVAILABLE NOW 



Ordering mltumalion Phone order* using VISA MASTRHCAHI) 
AMERICAN EXPRESS DINER'S CLUB CARTE BLANCHE, bank 
win? udn.for. cashlet * 01 certified check, money order or personal 
check IaIIow ten days to cieai) Unlet* prepaid wiih cash please add 
V(> tr>, shipping, handling and insurance {minimum :t (XII Calilor 
ma lesfdonls add u'C. sales lax WeaeceplCODs OFM s Institutions 
and corporaiions please send (im a written quolanon All equipment 
» BlbfMl i" price change and availability without nobce All equip 
mem rs new and complete with manufacturer's warraniy [UttialK 90 
davtl Shuwioom prices may dJIet !rom mail order price* 



Send Orders To: 

G®nQgQQDDQ®[r 



Mail Order 



8314 Parkway Drive 
La Mesa, Calif. 92041 



/AICRO 

From Here 
to Atari 



By James Capparell 

More on the Disk 

Last month we looked at the floppy 
disk and the structure that constitutes 
DOS II. This month I will discuss one 
problem that plagues some early disk 
drives and describe an inexpensive 
remedy. I will also include an assembly 
language program that lists disk direc- 
tory files. 

Disk drives purchased prior to fall 
1981 are susceptible to a few problems 
— including frequent errors 144 and 
138. These errors are due in part to the 
use of the Western Digital disk con- 
troller chip, 1771. This chip, when used 
without a Western Digital Data Sepa- 
rator (D.S.) independent of the chip, 
provides marginal performance. 

The D.S. functions to separate 
clock pulses from data pulses. As a 
drive is used, mechanical parts begin to 
wear, heads get out of alignment, speed 
varies, and errors occur, especially on 
the inside tracks, sector 600 and above. 
Recently added programs will not reload 
without generating the 144 error. Atari 
has corrected this problem in drives 
that were shipped after fall '81. Built 
into the new drives are the necessary 
D.S. as well as power supply improve- 
ments and the new ROM formatter 
(discussed last month). You can deter- 
mine that a drive is new by looking for 
the circular stickers with DS and C 
printed on them. There has been some 
indication that there will be a retrofit 
available to those with old drives. 

Another solution is available — the 
Data Separator board from the Percom 
Company. Initially this board was 
designed for Radio Shack disk drives 
suffering from the same problems due 
to use of the same 1771 chip. The board 
is available for $30 from the Percom 
Company, 211 N. Kirby, Garland, Texas 
75042. It is relatively easy to install if 
you are familiar with a soldering iron 
and are not afraid of integrated circuits. 
Since tinkering with your drives will 
void your three-month warranty, I'd 
advise you to wait three months after 
purchase before trying this procedure. 



10 .TITLE " GET DISC DIRECTORY" 

20 .PAGE " DIR.ASM" 

30 ! THIS PROGRAM ACCESSES THE DISC DIRECTORY 

40 I AND PRINTS IT TO SCREEN 

50 ! IT RESIDES IN PAGE 6 TO MAKE IT AVAILABLE TO BASIC 

60 ! USE L OPTION IN DOS MENU TO LOAD FILE 

65 ! CALL FROM BASIC X=USR<1536) 

70', 

80OFEN=*03 OPEN COMMAND 

90 CLOSE=«0C CLOSE COMMAND 

0100 GETREC=*05 GET RECORD COMMAND 

01 10 PUTREC=$09 PUT RECORD COMMAND 

0120 IOCB0=*00 INDEX FOR IOCS ASSIGNED TO E! 

0130 IOCB5=«50 INDEX FOR IOCB 5 ASSIGNED TO DISC 

0140 CIOV=$E456 CIO ENTRY VECTOR 

0150 EOF=»88 END OF FILE STATUS VALUE 

0160 ICHID=*340 HANDLER I.D. SET BY CIO 

0170 ICDNO=ICHID+l DEVICE # SET BY CIO 

0180 ICCOM=ICDNO+l COMMAND BYTE 

0190 ICSTA=ICCOM+l STATUS BYTE SET BY CIO 

0200 ICBAL=ICSTA+ 1 BUFFR ADR LOW 

0210 ICBAH=ICBAL+1 BUFFR ADR HI 

0220 ICPTL=ICBAH+1 

0230 ICPTH=ICPTL+1 

0240ICBLL=ICPTH+1 BUFFR LEN LO 

0250 ICBLH=ICBLL+1 BUFFR LEN HI 

0260ICAX1=ICBLH+1 AUX1 

0270ICAX2=ICAX1 + 1 AUX2 

0280! 

0290 i 

0300 *=$0600 PAGE 6 

0310 PLA CLEAR NULL VAL FROM BASIC USR FUNCTION 

0320 LDX #IOCB5 

0330 LDA #OPEN OPEN FILE OR DIRECTORY 

0340 STA ICCOM.X COMMAND BYTE 

0350 LDA #NAME&*FF SET UP BUFFER POINTER 

STA ICBAL.X TO POINT TO DIR SEARCH 

LDA #NAME/256 COMMAND D!*.* 

STA ICBAH.X 

SETUP FOR INPUT 



0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 



0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 



LDA #$06 

STAICAX1.X 

LDA #0 

STA ICAX2.X 

JSR CIOV 

BPL A05 

BMI EXIT 
0460 A05 LDA #GETREC 
0470 STAICCOM.X 

LDA #PUTREC 

STA ICCOM 

LDA #$6E 

STA ICBAL.X 

STA ICBAL 

LDA #*6 

STA ICBAH.X 

STA ICBAH 
0560 A10 LDA #»14 
0570 STA ICBLL.X 
0580 STA ICBLL 
0590 LDA #0 
0600 STA ICBLH.X 
0610 STA ICBLH 
0620 JSR CIOV 
0630 BMI A20 
0640 LDX #0 
0650 JSR CIOV 
0660 LDX #*50 
0670 BNEA10 
0680 A20 CPY #EOF 
0690 BNEEXIT 
0700 LDA #CLOSE 
0710 STA ICCOM.X 
0720 JMPCIOV 



GO OPEN FILE 
EVERTHING OK 
ERR ON OPEN FILE 



SETUP IOCB 



BUFFER LOW 



SET MAX, RECORD SIZE 



READ ONE DIR RECORD 
EITHER EOF OR ERROR 
SETUP IOCB 
GO WRITE RECORD TO E! 
RESET IOCB TO 5 
GO GET NEXT RECORD 

DONE? 
NO THIS WAS AN ERROR 
SHUTDOWN FILE 



0730! 

0740 EXIT RTS 

0750! 

0760! 

0770 NAME .BYTE "D!*.* 

0780 .END 



USE JMP HERE SO THAT RTS IN CIO 
EILL RETURN TO BASIC 
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At the top corners of your disk drive 
you will locate the Phillips-head 
screws. Pry off the concealing tabs, 
loosen the screws, and lift off the 
plastic top. As you view your drive 
from the front and top you will see a 
long board on your left. It is mounted 
vertically and there is a sheet-metal 
box covering part of the circuitry. The 
1771 chip is socketed under this metal 
box along with some other chips such 
as the ROM formatter. (The metal box 
is included for RFI shielding.) 

Carefully disassemble the board 
from the motherboard, which lies flat 
to the rear of the drive. Mark all wires 
as you unplug them. Pay attention to 
the front-rear, and top-bottom orienta- 
tion of plugs to be assured of correct 
reassembly. After the long board is 
unplugged from the motherboard and 
the metal box has been pried loose, 
locate the 40-pin integrated circuit 
marked 1771. 

Now find the crystal which sits 
about two inches forward of the 1771. 
This crystal must be moved to make 
room for the Percom D.S. Unsolder the 
crystal and solder on longer leads. 



Return the crystal to its original loca- 
tion, but this time bend it forward. 
(The longer leads should allow this.) 
Carefully pry the 1771 out of its socket 
and insert it into the Percom D.S. cir- 
cuit board in the orientation described 
in the board's instructions. Make sure 
every chip is properly seated again. 

Following Percom's instructions, 
insert the new circuit board in place of 
the 1771. This board can really only be 
inserted logically in one direction, ex- 
tending toward the front of the drive 
covering the crystal. Reassemble all 
boards and loose wires, taking care that 
orientations are correct. The metal box 
will not fit in its original location 
without cutting a notch for the newly 
moved crystal. 

I recommend testing the disk before 
putting the cover on. You may need to 
reseat the chips again; I played with 
mine a couple of times before every- 
thing worked. Prior to installing this 
board I could not consistently read any 
sectors above about 600, the inner 
tracks. After installation everything 
worked like new. 



Product Reviews 

I have received the following pro- 
ducts for review. They will be handled 
in more detail in MICRO'S new 
"Reviews in Brief" department, which 
will begin in April. 

Eastern House Software 
3239 Linda Drive 
Winston-Salem, NC 27106 

1 . Macro Assembler 

2. Monkey Wrench utility ROM used 
in right-hand cartridge with BASIC 

LJK Enterprises, Inc. 

P.O. Box 10827 

St. Louis, MO 63129 

1 . Letter Perfect word processor 

Optimized System Software, Inc. 
10379 C Lansdale Ave. 
Cupertino, CA 95014 

1. BASIC A+ Enhanced BASIC 

2. OS/A+ Enhanced DOS 

Please address all correspondence to the 
author at 297 Missouri, San Francisco, CA 
94107. 

JMCftO 



EXCEL-9 

The Ultimate 6Sag Board forApp 
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EXCEL-9 FLEX, a famous DOS, Assembler and Editor included. 

Also able to use Apple DOS. 

8KB versatile monitor contains 35 commands including 6809. 

Can handle all Apple slot I/O routine from EXCEL-9. 

Onboard programmable timer for both 6809 and 6502 systems allows printer 

spooling, multitask, etc. 
50 page well documented manual. 
64K RAM area expandable for multi-MPU operation. 
Able to switch MPU from 6809 to 6502 and vice versa in both machine code routine 

and BASIC. 
TSC 6809 BASIC, EXTENDED BASIC, PRECOMPILER, SOFT/MERG, etc., are 

coming soon. 




Ask your nearest dealer 
or 



ESD LABS CO., 

c/o AbCom 
P.O. Box 5203 
Mission Hills, CA 91345 




Dealer Inquiries are Invited. 



Introductory 
Price: 



tf ^ O O n c for Board & FLEX 
^«/yy.95 diskette 

(Sales tax not included) 



FLEX is a trade mark of Technical Systems Consultants, Inc. 
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NEW LOW PRICE 

DIRECT FROM MANUFACTURER 

$120.00 




I 
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16K RAM EXPANSION BOARD 
FOR THE APPLE II* $120.00 



The Andromeda I6K RAM Expansion Board 
allows your Apple to use RAM memory in place 
of the BASIC Language ROMs giving you up 
to 64K of programmable memory. Separate 
Applesoft* or Integer BASIC ROM cards are no 
longer needed. The I6K RAM Expansion Board 
works with the Microsoft Z-80 card, Visicalc. 
DOS 3-3. Pascal. Fortran. Pilot, and other 
software. A switch on the card selects either 
the RAM language or the mamboard ROMs 
when you reset your Apple. 

The Andromeda I6K RAM Expansion 
Board has a proven record for reliability with 
thousands of satisfied customers. 



Now with One Year Warranty. 

ANDROMEDA 

n 



919 852-1482 



INCORPORATED 

Greensboro, NC 27410 
P.O. Box 19144 





Price for Andromeda I6K RAM 
expansion board now only S 120.00. 
Please add $5 for shipping and 
handling. North Carolina residents 
add 4% sales tax. 
•DEALER INQUIRIES WELCOME 
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ROCKWELL Microcomputers from Excert, Inc. 



THE AIM 65/40 
Single Board or Smorgasbord 



*• '%£* 





^A^j^pj^l^ 



A full size terminal style keyboard w/8 special 

function keys 

A smart, 40 character display with its own 

microprocessor 

A 40 column printer w/text and graphic output 

Up to 64K of on-board RAM and ROM 
On-board interfaces include RS232, dual audio 
cassette and 2 user I/O R6522 devices 

Firmware includes interactive monitor and text 
editor w/options of Assembler, BASIC, FORTH 
and PL/65 



THE AIM 65 
Take-Out Order 




A full size terminal style keyboard w/3 special 

function keys 

A 20 character display 

A 20 column printer w/text and graphic output 

capability 

Up to 4K RAM and 20K ROM on-board 

On-board interfaces include 20MA TTY, dual 

audio cassette and 1 user I/O R6522 device 

Firmware includes interactive monitor and text 
editor w/options of Assembler, BASIC, FORTH, 
PASCAL, & PL/65 



And if the above isn't enough, 
Try the RM65 — a product line filled with embellishments including: 



32K DRAM Board 
CRT Controller 
Floppy Disk Controller 
PROM Programmer 



ACIA Board 
IEEE-488Board 
CPU/SBC Board 
4-16 Slot Card Cages 



Prototype cards 
Adaptor Buffer Modules 
General Purpose I/O Board 
PROM/ROM Board 



NEW LOWER PRICES AND A CASH DISCOUNT* TO BOOT! 



A65/40-16(16KRAM) $1225 

A65/40-32 (32K RAM) $1295 

A65/40-A (Assembler) $ 85 

A65/40-B (BASIC) $ 65 






Mail Order to: 

Educational Computer Division 
EXCERT INCORPORATED 



• SALES 

• SERVICE 

• INSTALLATION 

• CONSULTING 



P.O Box 8600 

White Bear Lake, MN 55110 

(612)426-4114 



A65-1 (1K RAM) $420 

A65-4 (4K RAM) $445 

A65-4B (4K RAM w/BASIC) $495 

A65-PS (PASCAL) $100 

A65-F (FORTH) $ 65 

A65-A (Assembler) $ 35 



Higher quantities quoted upon request, COD's accepted, 
shipping will be added. "Deduct 5% cash discount on 
prepaid orders. Minnesota residents add 5% sales tax. 
Prices subject to change without notice. 
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Short Subjects 



Hybrid Program Storage 

A Bug in Apple's 
RENUMBER 



by Chris Williams 



by Robert C. Leedom 



Hybrid Program 
Storage 

Chris Williams, 5676 S. Meadow La. 
#101, Ogden, Utah 84403 



Usually for reasons involving speed, 
many Applesoft programs contain 
assembly language subroutines as an 
integral part. This "hybrid" form con- 
ventionally requires two SAVEs (one 
for the assembly and one for the Apple- 
soft] and, of course, two LOADs. An 
excellent example of this is Richard 
Suitor's hybrid LIFE program included 
in MICRO on the Apple, Volume 1, 
page 168. The two LOADs can be ir- 
ritating after using the program several 
times. 

You can reduce this procedure to a 
single SAVE and LOAD through 
judicious use of the start- and end-of- 
program pointers located at $67-$68 
and $AF-$B0 respectively. If your 
assembly language subroutines are 
located above the Applesoft program 
(i.e., higher memory] then all you need 
to do is put the final location of the 
assembly language subroutines into the 
end-of-program pointer. A single BASIC 
SAVE will now save everything, and a 
single BASIC LOAD will bring it all 
back. This is particularly convenient ii 
you happen to be working with tape. 

Ii your assembly language sub- 
routines are located below the Apple- 
soft program you must be a bit trickier. 
Set the start-of-program pointer to two 
locations prior to the start of the 
assembly language. Next, do your BASIC 
save, and then whenever you wish to 
load it be sure to set the start-of- 
program pointer to this same value. 
And before running, in this instance, 
the start-of-program pointer must be 
reset to the start of the Applesoft. Addi- 
tionally, the byte immediately prior to 
the Applesoft must be set to to avoid 
a SYNTAX ERROR message. 

These same methods can be used to 
enable an Applesoft machine (Apple II 
Plus) to run Integer BASIC hybrid pro- 
grams. For this application, in addition 



to the measures described above, you 
must take care of another potential 
problem. Again, I direct you to Richard 
Suitor's LIFE as an illustration. 

Mr. Suitor placed his assembly lan- 
guage routines at $800 and used Integer 
BASIC. Since, as it turns out, all of his 
Integer BASIC commands are exe- 
cutable in Applesoft, it should run. 
However, Applesoft defaults to $800 
for the start of program storage. 

To overcome this problem, simply 
set the start-of-program pointer to a 
point similar to $1000 before you type 
in the BASIC. When you're finished, 
reset the pointer to $7FE (i.e., two loca- 
tions prior to the start of the assembly 
language). Set $FFF to — the byte just 
before the Applesoft — and execute a 
BASIC SAVE. Now whenever you want 
to LOAD, set the start-of-program 
pointer to $7FE and perform a standard 
BASIC LOAD. 



A Bug in Apple's 
RENUMBER 

Robert C. Leedom, 14069 Stevens Valley 
Ct., Glenwood, Maryland 21738 



The RENUMBER utility program sup- 
plied with Apple DOS 3.2 and 3.3 has 
an insidious bug. However, after you 
use RENUMBER, your program may 



appear to run perfectly, so you may not 
even notice that your program's opera- 
tions have been altered! RENUMBER 
will correctly change all line number 
references to agree with the new line 
numbers. Unfortunately, it also may 
alter any number in an arithmetic ex- 
pression which follows an asterisk (the 
multiply operator), and has the same 
value as a pre-RENUMBER line number. 

I obtained the corrections for the 
DOS 3.2 version from the Apple Hot- 
line in May of 1980, but I recently dis- 
covered that the problem still exists in 
the DOS 3.3 version. 

The fixes for the DOS 3.2 and DOS 
3.3 versions of the program are similar: 
they involve swapping two data values 
in the program, as shown in table 1. 



To permanently correct the RE- 
NUMBER program you must 

1. LOAD RENUMBER 

2. EXECUTE the two POKEs for your 
version of DOS 

3. SAVE RENUMBER 

For your future reference, Apple 
dealers' have a loose-leaf notebook 
which answers commonly-asked ques- 
tions including "What's wrong with 
RENUMBER?" Also, The Apple Or- 
chard indicates that the two locations 
to be POKEd for RAM Applesoft 
RENUMBER are 14342 and 14343. 





Table 1 






From BASIC 


DOS 3.2 


DOS 3.3 




POKE 4815,172 : 
POKE 4816, 171 


POKE 4789,172 : 
POKE 4790,171 




or 
From monitor 


* 12CF: AC AB 


• 12B5: AC AB 
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OSI COMPATIBLE PRODUCTS 

58K 2-MHz Ultra Low PowerCMOS Static Memory Board mem-56K$850 

Partially Populated Board* (Specify address locaiions required) . MEM-48K $750 

MEM Board uses Ihe new 2K-Byte Wide Sialic RAM chips which are MEM-32K $550 

2716 EPROM compatible Any 2K byte memory segment can be MEM-24K $450 

populated with RAM or EPROM (or fell empty tor use of AddressSpace MEM-1 6K $350 

by another board) Fully expandable to any memory size you will ever MEM- 8K $250 

need. No special addressing requirements. iust solder m extra sockets MEM- 4K $200 
and add memory Also has space tor a » 75K Monitor ROM at $F800 {FCJ 

Extra 2K RAM Memory Chip $24 

Optional Parallel Printer Port P $1 20 

Optional Calendar/Clock (Software available in EPROM) -T $ 25 

Both options (Disk software mods provided 'or use of 6522 VIA on -PT $ 1 25 

printer) 

EXAMPLE USES: 

C4P4C8P: Expansion to 40K RAM of Baste workspace. 

Parallel Printer Port — Reserve Serial Port lor MODEM 
Calendar/Clock Displaying on unused portion of screen 
Space for 5 75K of Enhanced Svatem Monitor EPROMS. 
Allolthison 1 Board usmg onlyoneot your pretiousslots Software lorEnnancedSyste 
Monitor capabilities is continuously being developed and improved As new EPROM 
Monitors are available, you may upgrade to them lor any price deferential plus a nom 
S'O exchange tee Another possibility is to 'ill any portion o' the memory wilr> Bask 
Programs m EPROM 'or Power-on Instant Action. This Custom EPROM programming 
service is available at $25 per 2716 (includes EPROMi Extra copies at $16 'or each 
EPROM 
C4P-MF A C8P-DF; Memory expansion to 48K. 

Add dKM«mory at $E000 'o' special software requirements 
Parallel Printer Interface and/or Displaying Calendar/Clock. 
Add ' 75K Enhanced System Monitor ROM. 
C3: Up to 56K of Memory Expansion — can be addressed for Multiuser. 

(Optionally, each user can have his own Dedicated Printer Port). 
Add Enhanced Monitor ROM with Calendar/Clock software, warm 
start and Hard Disk Boot 
IEEE-488 INTERFACES AND SOFTWARE: 

The General Purpose Instrumentation Bus (GPIB) Controller interface is 
available for all OSI Computers. Machine code GPIB Drivers are linked to Basic 
to provide easy control of IEEE-488 instruments which is equal to the best ot 
Hewlett-Packard Controllers and far superior to most others Basic Commands 
lor Serial Poll. Parallel Poll. IFC Clear, full Local/Remote Control, Respond to 
SRQ Interrupts, Send Trigger, do Formatted Input/Output. Direct Memory 
Input/Output and MORE Interface includes IEEE-488 Ribbon Cable/Con- 
nector. 

GPIB Controller Interlace 'or C2 C3 C4 and C8 Systems GPIB 4-488 $395 

GPIB Software for OS-65D (Add -8 'or 8" Or 5 for 5 ") GPIB 488-0 $ 70 

GPIB Software 'or OS-65U GPIB 488-U $100 

GPIB Software on two 271 6 EPROMS lor ROM based systems GPIB 488-R $100 

Add Optional Parallel Printer Interface toGPiB 4-488 -P $120 

Add Optional Calendar/Clock to GPIB 4-488 -T $ 25 

Add 2K RAM toGPiB 4-488 (Specify location. S4000-S8FFF & $DOCO-$EFFF availaWe)-M $ 25 
Software lor EPROM Programming. Reading, Verifying, and Erased Check; fully 
Integrated with Assembler, Editor and Extended Monitor. Can be used with many types 
of EPROM upto8K Requires Optimal Technology Model Ep-2A-79 EPROM Programmer 

and the GPIB 4 488 Board Specify 8" or 5" Disk EPROM MI-EP$180 

GPIB Controller for C1P, Includes Software. Clock A space for 6K EPROM 

GPIB 8-488R $395 

Add Optional Parallel Printer Interface to GPlB 6-488R -P $120 

EPROMS: (Check with your Dealer tor newest EPROM Products). 

CiP ROM with 48 Col Display. Smart Terminal. Edit & More tor Series 

ROM-TERM II $59.95 

C1P ROM with 24 Col Display. Other ROM-TERM II Features * Disk Boot 

ROM-TERM $59.95 

Just flip switch tor Senator VideoSvstemwithCorrected Keyboard SYNKEY$39.95 

ENHANCED MONITOR ROMS FOR USE ON GPIB 4-488 & MEM BOARDS: 
Expanded Support for C4P ft C8P Featuring Calendar/Clock, Line Edit, Smart Terminal. 

Memory Files. Parallel Printer Control 4 More MI48P1 $59.95 

DlskSupportwithCalendar/Clock.WarmStartandCorrectedKeyboard ....MI48D1 $59.95 
Expanded C3 Monitor with Calendar/Clock Software, Hard Disk Boot, and Warm start . 

MIC3-1 $59.95 

C1 -PSerlet II Computerwith ROM-TERM II Smart TermmalMonitor (OrderDirect). . . $549.00 



IEEE-488 CONTROLLER INTERFACE 



Compact-Flat 
Printer Cable 



Enhanced 
Monitor ROM 



60 Cycle Clock 




THE GPIB 4-448 INTERFACE BOARD CONVERTS ANY OSI COMPUTER 
INTO AN IEEE-488 INSTRUMENT BUS CONTROLLER! 

BENEFITS— Provides a Sophisticated Instrumentation Controller at very low cost 
(often saving thousands of Dollars). The combination of IEEE-488 Instrumentation 
Controller and High Capacity Hard Disk file storage available on OSI Computer systems is 
available at a fraction of the cost required by the nearest competitor. The IEEE-488 Bus, 
also known as theGPIB, HP-IB or IEC-625 is the most popular International Standard for 
connecting instrumentation systems. This 16-lme bus is designed to interconnect and 
control up to 15 instruments at a time. Currently, over 1400 different instruments are 
available to work on this bus. They include: Plotters. Digitizers, Printers, Graphic Displays, 
Recorders and a multitude of specialized Test/Measurement/Control Equipment 

COM PATABI LITY- The »ast machine code GPIB drivers are linked to OSI BASIC to 
provide easy programmable control of standard instrumentation which is equal to the best 
HP-IB Controllers and far superior lo all others. These GPIB Drivers are accessed Irom 
BASIC with a new command "BUS" followed by simple control letters to do total command 
ot IEEE-488 Instrumentation. You can do direct Input/Output of formatted String and 
Numerical variables as simply as with Ihe "INPUT' and "PRINT" statements. 
Utilizes the MC68488 lC designed by Motorola to provide automatic Handshaking 
and Addressing Protocol as required by the IEEE-488/78 Standard. This 
combination of Hardware/Software makes instrumentation control programs 
extremely easy to write and modify. 

E PROM-ABLE -Can be used with aC4-P to create adedicated IEEE-488 controller 
which has the capability of running your unique program at Power-on (No loading of 
prog ram tapes required). You simply developyour program for your specialcontrol function 
and send a copy ot tape to us. We will then transfer your program to EPROM and you are on 
line with a customized IEEE-488 Instrumentation System. 

C2-D MULTIPLE USER SYSTEMS 
SAVE -- 2 and 3 user Time Sharing Systems are available on the C2-D Winchester Disk 
Computer at a considerable cost savings from C3 Multiple User Systems. The 3 user C2-D 
System can be expanded to include a word processing printer. 4 other parallel printersand 
3 serial printer interfaces, 

COMPATABLE-- The special C2-D Multi-User Executive Program is 100% 
compatabie with OS-65U V1 .2. The Multi-User Reat Time Clock, Memory Partition Control 
and I RO Interrupt Management are done on the Micro Interface Memory Board. Thus, tho 
CPU board is not modified and remains in factory condition. 

CONVERSIONS- The Up-Grade of your existing C2-D Computer toMultipleUser 
Configuration is also available. Call for details. 



MEM-56K CMOS STATIC MEMORY BOARD 



Printer Port 




ULTRA-LOW POWER - By using CMOS Static 
RAM Memory, the total power consumption is about 
*v Amp at 5 Volts when populated 'or 48K In lad. most 
ot power is used by Ihe Address Line Suffers and trie 
Data Transceivers 



MULTI-USER -Can be addressed 'or any of the 16 
multi-user memory partitions The low power and 
single memory board/partition simplify installation 
and provide a typical Si 400 saving lor a 3-user 
system 



MICRO-INTERFACE 

31 1 1 SO. VALLEY VIEW BLVD., SUITE 1-1 01 

LAS VEGAS, NEVADA 89102 

Telephone: (702) 871-3263 



Check with youi local Dealer or Order Direct 

Phone orders accepted 

TERMS. Check/Money Order/Masler Charge/VISA 

Sent POSTPAID ON PREPAID ORDERS. 

Foreign Orders: Prepaid only 

Add 5^0 lor handling/shipping 
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Cross Reference Generator 
for OSI BASIC-in-ROM 



Program development and 
debugging often depend on 
keeping track of references and 
variables. The following article 
describes a cross reference 
generator for OSI ROM BASIC 
which will help you find any 
variable or line number within a 
BASIC program. 



John Krout 

5108 N. 23rd Road 

Arlington, Virginia 22207 



It is almost inevitable that when you 
develop a large program in BASIC, 
you'll need to find all the references to 
some aspect of the program. If you 
decide to delete a particular line, it is 
important to locate all the GOTOs, 
THENs, and GOSUBs mentioning that 
line. If you want to conserve memory 
by merging two string variables into 
one, you must find all the appearances 
of the string variable names. A cross- 
reference generator program is extremely 
useful at times like these, for it can find 
references within your program much 
faster and more accurately than the 
traditional visual search. 

A cross-reference generator is most 
often needed, however, when free 
memory is a scarce commodity. In this 
article we'll develop a cross-reference 
generator which requires less than IK 
of RAM and will find references to 
variable names, constants, literals, line 
numbers, and any word in the vocabu- 
lary of BASIC. 

When you type a line of BASIC pro- 
gram text, OSI BASIC-in-ROM stores 
that text in a condensed or "tokenized" 
format in RAM. Listing 1 is a program 
which takes a look at itself in RAM, 
and table 1 shows that program's output. 



Table 1 
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In listing 1, variable T points to the 
beginning address of numeric variable 
storage in RAM, which is also the end 
of your BASIC program text. The begin- 
ning of BASIC text is address 768. (Sec 
MICRO 31:61 for more information on 
text and variable storage area pointers.) 
To look at the RAM storing BASIC 
text, the FOR-NEXT loop examines all 
addresses from 768 to T. Line 60160 
prints the address, the graphic corres- 
ponding to the data at the address, and 
the data at the address in decimal. 

Although the printer used to create 
table 1 does not use OSI's entire 
graphics code, a comparison of listing 1 
to its tokenized version in table 1 is 
very informative. First of all, we can 
see that the variable names, constants, 
and some BASIC symbols are stored in 



their ASCII code form, just as if they 
were strings of characters. Most BASIC 
keywords and symbols, however, are 
stored as single characters called 
"tokens," and all of the tokens have 
values greater than 127. 

The line number of each line is also 
stored. While each reference to a line 
number (GOTOs, GOSUBs, THENs) is 
stored as a string following the ap- 
propriate token, the line number of 
each tokenized line is stored at the 
beginning of the line in low-high for- 
mat. For instance, line number 60010 
begins at address 771: 

PEEK(771 ) + 256* PEEK(772) = 6001 

Moreover, each line of tokenized 
text is terminated with a zero. 





Listing 1 


60010 


T=PEEK < 123) +256*PEEK 




(124) 


60100 


F0RI=768T0T 


60110 


X=PEEK(I) 


60160 


PRINTI;CHR*(X> ;X 


60170 


NEXTIsEND 





Listing 2 


60120 


IFX=OGOT060500 


60500 


REM NEW LINE 


60510 


L I NE=PEEK < I +3 ) +256*PEEK 




(1+4) 


60520 


PRINTLINE 


60530 


1 = 1+5 


60540 


B0T060110 
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There are two other bytes of data 
between each terminating zero and the 
bytes representing the number of the 
following line. These are a pointer, also 
in low-high format, to the next line. 
For instance, before the beginning of 
line 60010 in RAM: 

PEEK(769) + 256*PEEK(770) = 793 



At address 792 we see the zero ter- 
minating line 60010, and at address 795 
and 796 the number of the second pro- 
gram line is stored. Therefore, the next- 
line pointer for each line points to the 
next-line pointer for the following line. 

Listing 2 is a modification to be added 
to listing 1 which decodes and prints 
the number of each tokenized line. The 
program spots each terminating zero in 
line 60120 and branches to the line 
decoder. An interesting point about 
FOR-NEXT loops is utilized in line 
60530: you can change the value of the 
loop variable while the loop is running. 
This enhances execution speed slightly 
by skipping the next-line pointers. 

It stands to reason that, if BASIC 
can translate new text lines to tokens 
and, during a LIST, vice versa, then 
there should be a dictionary of BASIC 
vocabulary and corresponding tokens 
somewhere in ROM. In fact, the dic- 
tionary resides in addresses 41092 
through 41314 (see MICRO 24:25, 
23:65). Listing 3 takes a look at the 
dictionary, and the results of listing 3 
appear in table 2. 



The items are placed in the dic- 
tionary in the numerical order of their 
corresponding tokens. The last charac- 
ter of each item has its most significant 
digit set to 1, to tell BASIC that the end 
of the item has been reached. In listing 
3, X represents a byte of data in the dic- 
tionary, and is used in line 61040 to 
build a string, B$, of consecutive bytes. 
Line 61050 branches to avoid incre- 
menting the token number, variable 
TK, and printing and clearing B$, if the 
item is not yet complete; i.e., if the 
most significant bit of X is cleared. 
While assembling B$, we use Boolean 
logic in line 61040 to clear the most 
significant bit of every character, not 
just the last one. This may be overkill, 
but it is also compact code and serves 
our need to conserve RAM. 

We can now knit together listings 1 
through 3. This will enable us to search 
for any string, or token corresponding 
to a dictionary item, that we need to find. 





Listing 3 


61000 


REM LOOKUP TOKEN 


61010 


TK=127:BS="" 


61020 


F0RI=41092T041314 


61030 


X=PEEKCI) 


61040 


B*=B*+CHR*<XAND127) 


61050 


IFX<12860T061100 


61060 


TK=TK+1 


61070 


PRINTTK;B* 


61080 


B*="" 


61100 


NEXT 



Listing 4 

60050 INPUT"WHICH STRING" : AS: PRINT 

60070 L=LEN<AS> : B*=" " 

60130 B*=B*+CHR*(X> 

60160 IFA*=RIGHT*<B*,L>THENPRINTLINE; 

60170 NEXTI:PRINT:GOT060050 

60520 B*="" 





Listing 5 


60030 


INPUT"KEYWORD OR STRING" ; A*: PRINT 


60040 


IFASC <A*> =75GC)T06i000 


60170 


NEXT I : PRINT: 60T060030 


61005 


INPUT"WHICH KEYWORD"; AS: PRINT 


61015 


L=LEN(A*> 


61070 


IFAS=LEFT* (B*„L> THENA*=CHR* (TK) : G0T060070 


61200 


PRINTA*;" NOT FOUND" : PRINT: GOT060030 









Table 2 
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END 
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NULL 
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STEP 
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FOR 
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WAIT 
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+ 
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RND 
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NEXT 
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LOAD 
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— 
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LOG 


131 


DATA 
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SAVE 
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* 
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EXP 


132 


INPUT 


149 


DEF 


166 


/ 
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COS 


133 


DIM 


150 


POKE 


167 


*. 


184 


SIN 


134 


READ 


151 


PRINT 


168 


AND 


185 


TAN 


135 


LET 


152 


CONT 


169 


OR 


186 


ATN 


136 


GOTO 


153 


LIST 


170 


> 


187 


PEEK 


137 


RUN 


154 


CLEAR 


171 


= 


188 


LEN 


138 


IF 


155 


NEW 


172 


< 


189 


STRS 


139 


RESTORE 


156 


TAB( 


173 


SGN 


190 


VAL 


140 


GOSUB 


157 


TO 


174 


INT 


191 


ASC 


141 


RETURN 


158 


FN 


175 


ABS 


192 


CHRS 


142 


REM 


159 


SPC( 


176 


USR 


193 


LEFT* 


143 


STOP 


160 


THEN 


177 


FRE 


194 


RIGHT* 


144 


ON 


161 


NOT 


178 


POS 


195 


MID* 



Listing 4 modifies listings 1 and 2 to 
find a string, represented by the 
variable A$, in any tokenized text line. 
A$ can therefore be a variable name, 
constant, line reference, or literal in a 
print statement, data statement, string 
computation or remark. The variable 
B$ here represents the tokenized text, 
and is built byte by byte in line 60130. 
If the contents of A$ resides anywhere 
within B$, then sooner or later AS will 
equal the rightmost L characters of B$, 
where L represents the length of AS. 
When this match occurs, line 60160 
prints the line number of the current 
line represented by B$. The previous 
unconditional print of each byte and 
line number has been replaced, and BS 
is cleared in line 60520 whenever a new 
line number is decoded. 



If you have entered listings 1 
through 4 in sequence, then listing 5 
adds the capability of converting a key- 
word to its token by searching the dic- 
tionary, and finding all references to 
the token. Line 61070 converts the 
numeric token TK to a 1-byte string 
AS, and then uses the string search 
routine of listing 4 to locate matches 
for A$. 

As is, the cross-reference generator 
will now find all that you seek, but it 
finds a few extra items as well. As an 
example, direct the program to ex- 
amine its own text for references to the 
numeral 7. It prints the line numbers in 
which the constants 75, 768, and 127 
as well as line reference 60070 appear. 
Ask it to find references to the numeric 
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variable A (there are none), and it prints 
references to A$. If references to T are 
sought, two of the input prompts and 
one of the remark literals are found, as 
well as all references to T and TK. 
Some fine tuning is definitely in order 
to eliminate, or at least cut down on, 
the unwanted reference reports. 



The problem of distinguishing a 
constant from a line reference is very 
complex, partly because line references 
can be surrounded by commas in an 
ON/GOTO or ON/GOSUB context, 
while constants can also be surrounded 
by commas in a multiple-argument 
function or command. In my programs, 
I've found line references to be far more 
common than constants, and far more 
likely to end with the numeral 0. 1 have 
seen other cross-reference generators 
which can do the job, but they are 
larger than this one and not as ver- 
satile. Since our purpose is compact- 
ness, versatility is useful, and since the 
chances of confusion appear to be mini- 
mal, I can live with the constant/line 
reference problem. 



The problem of distinguishing sub- 
scripted, string and numeric variables 
is much easier to solve. If references to 
a numeric variable are sought, the pro- 
gram should reject any it finds which 
are followed by either a ( or a $. If 
references to a string variable are 
sought, the program should ignore any 
followed by a ( character. These suffix 
rejection rules for numeric and string 
variables suggest that we can eliminate 
erroneous references embedded in 
larger strings (illustrated above by the 
searches for 7 and T) by implementing 
a set of suffix and prefix rejection rules. 



The prefix rule for all strings is re- 
jection of references preceded by a 
numeric or upper-case alphabetic char- 
acter. The suffix rule for constants, line 
references and numeric variables is as 
stated above for numeric variables, with 
the additional rejection of numeric and 
upper-case alphabetic suffixes. 

Listing 6 incorporates these rules 
into the cross-reference generator, 
utilizing three defined Boolean func- 
tions in a single IF/GOTO statement. 
The functions are defined in lines 
60005 through 60007. The argument in 



Listing 6 



60005 
60006 
60007 
60070 
60080 
60090 
60135 
60140 
60145 
60150 
60535 



CV1> 



DEFFNA ( X ) = < X >47ANDX<58 ) OR ( X >64ANDX< 

DEFFNB ( X ) =X< >36ANDX< >40 

DEFFNC < X ) =NDTFNB < X ) ORFNA ( X ) 

L=LEN(AS> :BS="":A=ASC(AS) 

IFAM27GOT060100 

B=ASC (RIGHTS < A*. 1) > 

IFAM27G0T060160 

IFA$ORI6HTS(BS,L)G0T060170 

Y=PEEK(I+1) : IFLEN(BS) >LTHENW=ASC (RIGHTS (BS, L+l > ) 

IFFNA (W) OR (B=36ANDY=40) OR (FNB (B) ANDFNC ( Y) > G0T060170 

W=0 



(LABEL), Y (LABEL,X) LABEL + /NDX-J 



6502 Assembler/Editor 



APPLE 

ATARI 

PET 



SYM 



Before you buy that off-brand Assembler/Text Editor, note that EHS is the only company that provides a | 

line of compatible ASM/TED's for the PET/APPLE/ATARI/SYM/KIM and other microcomputers. 

When you make the transition from one of these 6502-based microcomputers to another, you no longer I 
Ihave to relearn peculiar Syntax's, pseudo ops, and commands. Not only that, EHS ASM/TED's are the 
(only resident 6502 Macro Assemblers availiable and they have been available for several years. Thus you 

can be sure they work. Our ASM/TED's may cost a little more but do the others provide these powerful 
(features: Macros, Conditional Assembly, String Search and Replace, or even up to 31 characters per label? | 
I B efore you spend your money on that other ASM/TED, write for our free detailed spec sheet. 



MACRO ASM/TED 
For APPLE/ATARI/PET/SYM/KIM 
Other than our MAE, no other assembler 
is as powerful. 

Macros/Conditional Assembly. 
Extensive text editing features 
Long Labels 

Designed for Cassette-based systems. 
$49.95 



MAE ASM/TED 
For APPLE/ATARI/PET 
The most powerful ASM/TED 
Macros/Conditional and Interactive Assembly 
Extensive text editing features 
Long Labels 
Control files 

Designed for Disk-based Systems. 
$169.95 



EASTERN HOUSE SOFTWARE 

3239 Linda Drive PHONE ORDERS 

Winston-Salem, N.C. 27106 USA (919)924-2889 
(Dealer Inquiries Invited) (919) 748-8446 




.EN .BY .OS .BA 



.DE 
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each is the ASCII value of a character. 
FNA returns a true value if the charac- 
ter is numeric or upper-case alpha. FNB 
returns true if the character is neither ( 
nor $. FNC, utilizing FNA and FNB in 
its definition, returns true if the 
character is either numeric, upper-case 
alpha, ( or $. 



Line 60070 is modified to set new 
variable A equal to the ASCII value of 
the first byte of A$. Lines 60080 and 
60135 skip over the rules implementa- 
tion if A indicates that A$ represents a 
token. Line 60090 sets new variable B 
equal to the ASCII value of the last byte 
of B$, to decide later if the string to be 
found is a subscripted or string variable. 



Since the program doesn't need the 
rules unless a potential reference is 
located, line 60140 jumps past the rules 
until that condition is met. In line 
60145, Y is the ASCII value for the 
reference suffix and, if the reference is 
not the first item in the text line, then 
W is the ASCII value of the reference 
prefix. Line 60535 sets W to zero when- 
ever a new line number is decoded. 



Line 60150 skips the line number 
printing statement if any of the prefix 
or suffix rejection rules are met when a 
potential reference is found. This is one 
easy way to read the line: 



IF the prefix W in the text is 
numeric or upper-case alpha, 

OR the item sought ends with a $ 
and the text suffix is a (, 

OR the item ends with neither ( nor 
$ and the text suffix is either 
numeric, upper-case alpha, $ or (, 

GOTO 60170. 



The first clause implements the 
prefix rule, the second the string 
variable suffix rule, and the third the 
suffix rule for numeric variables, con- 
stants, and line references. 



Listing 7 is the result of all these 
developments. It does indeed run in 
less than IK of RAM, with about 200 
bytes to spare for a few instructions in- 
serted between lines 60010 and 60030, 
if desired. That might be a good place to 
remind yourself that the symbols +, 
-,*,/, A ,>,= , and < are treated as 
keywords, not strings. (See table 2.) 



Listing 7 



GOT060000 
60000 REM XREFGEN 
60002 CLEAR 

60005 DEFFNA ( X ) = ( X >47ANDX<58> OR ( X>64ANDX<91 ) 

60006 DEFFNB ( X ) =X< >36ANDX< >40 

60007 DEFFNC ( X ) =N0TFNB < X ) ORFNA < X ) 
600 10 T=PEEK ( 1 23 ) +256*PEEK ( 1 24 ) 

60030 INPUT"KEYWORD OR STRING" ; A*: PRINT 

60035 Y=FRE(1) 

60040 I FASC < A* ) =75G0T06 1 000 

60050 INPUT"WHICH STRING" ; A*: PRINT 

60070 L=LEN ( A* ) : B*= " " : A=ASC ( A* ) 

60080 IFAM27G0T060100 

60090 B=ASC<RIGHT*(A*. 1> ) 

60100 F0RI=76BT0T 

60110 X=PEEK(I> 

60120 IFX=OGOT060500 

60130 B*=BS+CHR*(X> 

60135 IFAM27G0T060160 

60140 IFA*ORIGHT*<B*,L)G0T060170 

60145 Y=PEEK(I+1> : IFLEN(B*> >LTHENW=ASC <RIGHT*i(BS, L+l > ) 

60150 IFFNA<W)OR<B=36ANDY=40)OR<FNB(B)ANDFNC(Y) )GOT060170 

60160 IFA$=RIGHTS(B*,L>THENPRINTLINE; 

60170 NEXT I: PRINT: G0T060030 

60500 REM NEW LINE 

60510 LINE=PEEK ( 1+3) +256*PEEK (1+4) 

605 15 I FL I NE >59999THENPR INT: G0T060030 

60520 B*="" 

60530 1=1+5 

60535 . W=0 

60540 G0T060110 

61000 REM LOOKUP TOKEN 

61005 INPUT "WHICH KEYWORD" ; A*: PRINT 

61010 TK=127:B*="" 

61015 L=LEN(A*> 

61020 F0RI=41092T041314 

61030 X=PEEK(I) 

61040 B*=B*+CHRS<XAND127> 

61050 IFX'<128G0T061100 

61060 TK=TK+1 

61070 IFA*=LEFT« <B«, L) THENA*=CHR$ (TK> : G0T060070 

61080 BS="" 

61100 NEXT 

61200 FRINTA*;" NOT FOUND" : PRINT: 60T060030 



A few extra lines in listing 7 are 
useful options. Line is simply a jump 
to the start of the program, so you can 
load it from tape on top of your main 
program already in RAM, and simply 
type RUN to begin cross referencing. 
Since modification of a program erases 
the tables of variables in upper RAM, 
you'll need the CLEAR statement in 
line 60002 only if you test your own 
program and then enter the cross- 
reference generator by typing GOTO 
60000. The FRE function in line 60035 
allows the garbage collection routine to 
conserve memory in the string storage 
space whenever a new A$ is input in 
line 60030. Rest assured that garbage 
collect will not crash the system 
(MICRO 35:43) unless your own pro- 
gram uses subscripted string variables 
and their values are preserved by 
avoiding both program modification 



and the CLEAR statement. Line 60515 
ends the search when the program's 
own line numbers are reached. 

You can conserve even more 
memory by deleting the remark state- 
ments and altering the references to 
those lines accordingly, as well as by 
combining unreferenced lines into 
multiple statements. Obviously, this 
latter step saves the four-byte header 
for each of the lines eliminated, and 
can add up to a critical saving. 

Have you been wondering about the 
need for the next-line pointers? They 
are essential to BASIC'S execution of 
branching statements. An understand- 
ing of this process will help you im- 
prove execution speed of your own pro- 
grams as well as the cross-reference 
generator. 
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When a branch token such as a 
GOTO is executed, BASIC first 
translates the string of digits following 
the token into the low-high line 
number format. The speed of this 
operation clearly depends on the length 
of the string, so it always helps to 
utilize small line numbers, even 
though this may be impractical in large 
programs. If line references were stored 
in low-high format when tokenized, it 
would save memory and speed things 
up. I suspect Microsoft shares my con- 
clusion that it is difficult to distinguish 
constants and line references. 



Once the line number is ready, 
BASIC looks at each tokenized line 
header in turn, starting with the first 
program line in RAM, until a line 
number match is found. If the current 
header doesn't match, BASIC uses the 
next-line pointer to skip to the next 
header. 



You can maximize the speed of this 
skip-compare process by minimizing 
the number of lines and lengthening 



each line with multiple statements. 
You should also put your most 
frequently-called routines in the lowest 
line numbers, where BASIC will find 
them first, and put the initialization 
code in the highest line numbers, so 
BASIC won't have to skip through it on 
the way to the more important material. 
The cross-reference generator has a 
very significant execution speed prob- 
lem in this regard, because not only its 
own initialization in lines 60000- 
60090, but also the entire tokenized 
text data base, sits below the main pro- 
cessing loop routine in RAM! 

However, you can modify the cross- 
reference generator to use next-line 
pointers in two ways to improve execu- 
tion speed. Once a reference is found in 
a line, there is no need to search the re- 
maining portion of the line, so use the 
pointer to increment the loop variable I 
to the beginning of the next line. More 
helpful is an input specifying the range 
of line numbers in your program 
through which the cross-reference 
generator should search. It can use the 
next-line pointers to skip to the first 
line number you specify, and then quit 



when it finds the last line number you 
specify. If you're looking for references 
to a block of code in your own program 
about to be moved or eliminated, you 
can reduce the number of searches re- 
quired by adding a search for references 
to a specified range of line numbers. I 
suggest that you create a defined 
Boolean function of your own to help 
implement the rules for these extra 
features. 



John Krout is a patent attorney with the 
firm of Gipple & Hale in Arlington, 
Virginia. He teaches an adult education 
course entitled Introduction to Computer 
Programming, at Open University in 
Washington, DC, He has computerized 
Open University's walk-in registration 
process on a Challenger IP, and has 
performed trendspotting election analysis 
on Election Night 1981 for the Virginia 
Radio Network using a Challenger 8P DF. 
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Extended Arithmetic 
Processor 

Copyright North East Financial Systems 9/81 



MULTIPLE PRECISION MATH 
65D3 and 65U 

13-Digit Input — 26-Digit Output 

Complete Rounding Function 

Completely Integrated into 9-digit 
MICROSOFT BASIC 

$95.00 End User License — 8" Disk, 

39-page Manual 

OEM and Distributor License — Inquire 

NortH East FInanciaL Systems 

16 Maple Avenue 

West Nyack, New York 10994 

(914) 358-2898 



OSI HEXDOS 

Can your disk operating system do this? 

HEXDOS is a remarkable disk operating system for the C1 P or 
Superboard II. HEXDOS surpasses the capabilities of OS65D, 
but because it uses subroutines in OSI's ROM BASIC, it is very 
compact (only 2K). HEXDOS provides you with easy-to-use 
commands and saves 10K of memory and disk space! 

• Load or save BASIC programs, machine language, and data 
files by name. Chain BASIC programs from disk. 

• Up to 22 data files may be open simultaneously. 

• Resides at the beginning of RAM, leaving maximum space 
for user programs. 

• Full trace of BASIC programs with optional single-stepping. 

• True line editing allows you to correct mistakes easily. 

• Includes a disassembler and demonstration programs: 
CHECKBOOK and ADDRESSBOOK (personal data base 
management), LIFE, SURROUND, REVERSI, BACKGAM- 
MON, and BSR CONTROLLER (home control). 

• Satisfaction guaranteed, or your money promptly refunded. 

"Documentation is clear and complete, the best I have seen 
from any source." 

- Ronald C. Whitaker, Compute! magazine, April 1981 

Price: $49.50 (5 1 /4-inch diskette and 40-page manual) 
Manual only: $10. (Applicable towards purchase price.) 

The 6502 Program Exchange 

2920 Vfest Moana 
Reno, NV 89509 
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For more information, send $1.00 tor our catalog. 



No. 46 -March 1982 



MICRO - The 6502/6809 Journal 



41 




EXPANSION 




If your Challenger can't generate displays like those shown above 
WHAT ARE YOU WAITING FOR? The SEB-1 High Resolution 
Graphics and Memory Board (for CIP and Superboard II) and the 
SEB-2 High Resolution Graphics and Disk Controller Board (for 
C2/4/8) simply 'plug-in' to your computer and give you instant 
access to over 4900 individually addressable pixels in up to 8 
colors! Your Hi-Res screen can go from 32x 16 alphanumerics to 
256* 192 point graphics in 1 1 software selectable modes. The 
standard video of your computer is left intact, so that none of your 
current software library is outmoded. Use the graphics for 
Business, Scientific, Education, or Gaming displays that were 
impossible — until now! 
SEB-1 SEB-2 



Installation of either board requires absolutely NO modification of 
your computer — they just 'plug-in'. Nor do they preclude your 
using any other OSI-compatible hardware or software. In addition 
to the Hi-Res Graphics the SEB-1 gives C1 & Superboard II users 
16K of additional user memory (over and above that memory 
devoted to the graphics), two 16 bit timers/counters, an on-board 
RF modulator, and a parallel port with handshaking. The SEB-2 
gives OSI 48-pin BUS users an OSI hardware/software 
compatible Disk controller, and an RF modulator that can be 
user-populated. 

FOR OSI IP, 2-4P, 2-8P, C4P, C8P 



Assembled and Tested 
Kit 



SEB-1 



SEB-2 



S249.00 (5K RAM) S239.00 (1 K RAM) 
S165.00 (No RAM) $199.00 (No RAM) 



Bare Board & Manual 
Manual only 



59.00 
5.00 



59.00 
5.00 




TARG-IT! $11.95 

An action-packed, super fast arcade game where you try to destroy Ram ships and the 
Evil Spectre inside the Crystal city 8K. 

PLANETARY LANDER $11.95 

Your computer generates contour maps of the surface of a strange planet as you 
descend looking for the landing pad. As you make your final approach, the computer 
displays side and top views of the terrain and your ship as you try to land while avoiding 
the swarms of asteroids above the planet's surface. 8K. 

PROGRAMMA-TANK $9.95 

Program ma -Tank is a complex simulation of a battle between two robot tanks as well as 
a fairly painless way to learn assembly language. The opponents program their tanks 
'Smalltank' a miniature programming language, which is much like assembly languag 
The two strategies are then pitted against one another until a victor emerges. 8K 



COMING: SEB-3 80 x24 Video/Disk Controller (C2/4I8), SEB-4 48K Memory 
RAMIROM (C2/4I8), SEB-5 8K RAM Disk Sound Clock Voice (C1 & Superboard). 

Write for FREE catalog 

International Requests please 

supply 2 International Response Coupons 



iin m 

7 
ORIOISllT; 



RUINS OF TALAMARINE $16.95 

This is the first of our "Epic Quests' programs. Epic Quests could be described as 
graphic adventures, but they are much more. Can you retrieve the stolen Jewels from 
the ruined Talamanne castle? This series of two programs allows you to create a 
character with the qualities that you want to do battle with the forces of darkness. 8K. 

CODENAME: BARRACUDA $19.95 

Another of our "Epic Quests ". in which you are an agent working for the US 
Government trying to rescue a defecting Soviet professor. The problem is that a 
middle -eastern government has kidnapped the professor and is forcing him to develop 
atomic weapons for them. The three programs (8K ea.) in this series allow you to 
create, tram and send your character on his mission. 

DUNGEONS OF ZORXON $19.95 

Can you explore the Dungeons of Zorxon in this "Epic Quest"? Step into a nether world 
ot monstrous beasts and fortunes in gold where magic reigns supreme. Three 
programs 8K each. 
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More Hooks into OSI BASIC 



This article shows you how to 
add your own keywords to 
BASIC under OS-65D V3.2. 



Richard L. Trethewey 
5405 Cumberland Road 
Minneapolis, Minnesota 55410 



In the September 1980 issue of The 
Small Systems Journal (MICRO 28:42), 
Ohio Scientific published a method by 
which the user could add his own new 
keywords to BASIC. As soon as I saw it, 
1 knew I wanted to try it, and I did. It 
worked, but I didn't want to stop at the 
two keywords that OSI had provided. I 
wanted much more. 

Unfortunately, the way OSI wrote 
their code involved the use of look-up 
tables which made adding new key- 
words a little cumbersome. Having the 
look-up tables imbedded in the code 
also meant a small memory overhead. I 
rewrote the code to use simple direct 
comparisons instead of comparisons 
and subsequent jumps from tables. 
This makes the code shorter, a little 
faster, and easier to follow. 

Even though my program takes up 
IK of memory, in just 2Vi pages of 
RAM I have implemented commands 
for the following: screen clear, color 
background select, screen state select, 
scroll toggle, BASIC reset, disk direc- 
tory printer, hex-dec and dec-hex con- 
verter, and a screen-to-printer dump. 
It's well worth the overhead, even on 
24K systems. 

To implement new keywords, OSI 
replaced the regular instructions in 
BASIC that interpreted the keyword 
"LET" with a JSR to the code that in- 
terpreted the new keywords. OSI used 
an asterisk as a character in both of 
their keywords. This is because when 
BASIC saves text, it tokenizes certain 



Trethewey Listing 



BCOO 






*=*BCOO 






0OA5= 






TOKEI*=*AS : TOKEN FOR ASTERISK 


00C7* 






TXTPTR-4C7 : POINTER TO TEXT 


BCOO 


AOO 1 




LDY 


tt*01 




BC02 


B1C7 




LDA 


(TXTPTR),Y . FETCH 2ND CHARACTER 


BC04 


C9A5 




CMP 


#T0KEN : IB [ 


AN ASTERISK'' 


BC06 


D023 




BNE 


BACK : NO! BO BACK TO BASIC 


BC08 


88 




DEY 


! YES! 


NOW GET 1ST CHAR 


BC09 


B1C7 




LDA 


<TXTPTR),Y 










s NOW BO in APPROPRIATE CODE 




BCOB 


C943 




CMP 


II ' V 




BGOE 


F038 




BEO 


CCODE 




BCOF 


£942 




CMP 


It' li 




BC1 1 


FQ4E 




BED 


BCODE 




BC1 "■ 


C953 




CMP 


*"S 




BC i B 


FQ58 




BEQ 


SCODE 




1 IE 1 V 


C9B I 




CMP 


#■0 




BC1« 


FOSF 




m:o 


QCODE 




BC 1 B 


C9! 12 




CMP 


#'R 




BC1D 


F06C 




BEQ 


RCODE 




BC1F 


C944 




CMP 


*■ D 




8C21 


F07A 




BT.O 


DCODE 




BC23 


G94S 




CMP 


#'H 




BC2S 


Foot; 




BEQ 


HCODE 




BC27 


C9r.o 




CMP 


%'P 




BC29 


F OOB 




BEQ 


PCODE 










: RETURN TO BASIC AND CONTINUE 


BC2B 


202EOF 


BACK 


JSR 


*0F2E 




BC2E 


B596 




STA 


«96 




BC30 


8497 




STY 


*97 




BC32 


60 




RTS 












| JUMPS TO CODE BEYOND PAGE BOUNDARIES 


BC33 


4C5EBD 


HCODE 


: 

JMP 


HO 




BC36 


4C39BE 


PCODE 


JMP 


PI 










j RESETS POINTERS AND RETURNS 


TO BASIC 


BC39 


A5C7 


UPDATE 


i 

LDA 


TXTPTR 




BC3B 


18 




CLC 






BC3C 


6902 




ADC 


t»«02 




BC3E 


85C7 




STA 


TXTPTR 




BC40 


9002 




BCC 


UP1 




BC42 


E6C8 




INC 


TXTPTR+1 




BC44 


68 


UP1 


PLA 






BC45 


68 




PLA 






BC46 


60 




RTS 












I 

; ROUTINE TO CLEAR SCREEN 




BC47 


ft 920 


CCDDE 


LDA 


#' : LOAD 


ASCII BLANK 


BC49 


A208 




LDX 


#*08 


LOAD 


PAGE COUNTER 


BC4B 


A 000 




LDY 


#*00 


INIZ 


POINTER 


BC4D 


9900D0 


CI 


STA 


*DOOO, Y 


SAVE 


TO SCREEN 


BC5U 


C8 




I NY 




BUMP 


POINTER 


BC51 


DOFA 




BNE 


CI 


LOOP 


FOR PAGE 


BC53 


EE4FBC 




INC 


Cl+2 


BUMP 


PAGE ADDRESS 


BC56 


CA 




DEX 




DECREMENT PAGE COUNT 


BC57 


D0F4 




BNE 


CI 


LOOP 


"TIL DONE 


BC59 


A9DO 




LDA 


#*DO 


RESET PAGE ADDRESS 



(Continued on next page) 
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words and characters into one byte. 
The asterisk, which is the operator 
symbol for multiplication, is one of 
those characters. This way, the BASIC 
interpreter can't confuse your new 
keyword with a variable name. This 
may be overly cautious since we hook 
into BASIC at "LET" — one of the last 
things to be interpreted. If you use 
reasonable caution, you should be able 
to choose your own keywords freely. 
(Note that "LET" is still valid.) 

Before we are able to use the new 
keywords, we must do a little house- 
keeping in the interpreter. The follow- 
ing is what you will need to incorporate 
into your BEXEC* in order to use the 
hooks (I have used OSI's code): 

10 POKE 133, ADRH-1 

20 FOR N = 2470TO2476: READ 

A : POKE N,A : NEXT 
30 DATA 32,ADRL,ADRH,234, 

234,234,234 
40 DISK! "CA ADDR=TT,S" 



ADRH and ADRL are the high and 
low bytes of the address where your 
hooks reside in memory. ADDR is the 
hex address of the same. TT is the track 
number and S is the sector where you 
have saved the hooks' code on disk. 
The POKE to 133 protects your hooks 
from getting overwritten by BASIC 
strings. 

I have a 48K system, so ADRH = 188 
and my code resides at $BC00. 24K 
systems may want to use ADRH = 92 
and $5C00. My system has 8-inch disks 
so I put my hooks on track 8, sector 5, 
which is unused. (Note: OS-65D V3.3 
users will have to put their codes 
elsewhere.) 

Another option is to alter BASIC 
permanently on disk to eliminate lines 
20 and 30. After you have done the 
POKEs from these lines, just enter the 
following command: DISK! "SA 02,1 = 
0200/B" for 8-inch systems. On minis, 
just change the last "B" to an "8". 
This will save the adjustments to 
BASIC and you can eliminate the code 
in your BEXEC*. Also, if you have 
enabled LIST, NEW, and <CTRL> 
'C, these commands will be enabled 
whenever you invoke BASIC. While 
writing this code, I was constantly go- 
ing from the assembler to BASIC. Not 
having to do those POKEs was very 
convenient. 

The commands I have added are 
very simple to use: "C*" clears the 
screen, "B*x" changes the background 



Trethewey Listing /Continued) 

BC5B 8D4FBC STA Cl+2 



BC3E 


4C39BC 




JMP UFDATE 

1 

I ROUTINE TO 


I RETURN TO BASIC 
SET BACKROUND COLOR 


BC61 


A9E0 


BCODE 


t 

LDA #*E0 


« LOAD CLR PAGE # 


BC63 


8D4FBC 




STA Cl+2 


; SAVE IN CCODE 


BC66 


A002 




LDY #*02 




BC68 


B1C7 




LDA (TXTPTR) 


, Y ; FETCH COLOR # 


BC6A 


E6C7 




INC TXTPTR 


; ADJUST BASIC 


BC6C 


4C49BC 




JMP CCODE+2 
I ROUTINE TO 


) AND ENTER CCODE 
TOGGLE SCREEN SCROLL 


BC6F 


AD2A26 


SCODE 


LDA *262A 


; TOGGLES SCROLL 


BC72 


4940 




EOR #*40 


; ON AND OFF 


BC74 


8D2A26 




STA S262A 




BC77 


4C39BC 




JMP UPDATE 
S ROUTINE TO 


SET DISPLAY STATE 


BC7A 


A002 


OCODE 


LDY #*02 




BC7C 


B1C7 




LDA (TXTPTR) 


Y : FETCH NUMBER 


BC7E 


8D00DE 




STA SDEOO 


; SEND IT 


BC81 


A5C7 




LDA TXTPTR 


; AND ADJUST BASIC 


BC83 


18 




CLC 




BC84 


6903 




ADC tt*03 




BC86 


B5C7 




STA TXTPTR 




BCS8 


4C44BC 




JMP UP1 

; ROUTINE TO 


RESET NEW, LIST, AND <CTRL> C 


BC8B 


A94C 


RCODE 


LDA #76 


; THESE ARE THE NUMBER 


BC8D 


8DE502 




STA 741 


; YOU'RE USED TO 


BC90 


A94E 




LDA #78 


; SEEING 


BC92 


BDEE02 




STA 750 




BC95 


A9AD 




LDA #173 




BC97 


8D1908 




STA 2073 




BC9A 


4C39BC 




JMP UPDATE 

! 

; ROUTINE TO 


* GO BACK TO BASIC 
PRINT DISK DIRECTORY 


265E= 






1 

SCTN=*265E 




265F= 






PAGES =«265F 




2660= 






ADRLX=*2660 




2661 = 






ADRHX=*2661 




2662= 






TRAKX=*2662 




26A6= 






SEEKX=*26A6 




2754= 






LOAD =»2754 




2761 = 






UNL0AD=»2761 




295D= 






CALLX=*295D 




2D6A= 






CRLF=«2D6A 




2CF7= 






SWAP=*2CF7 




2D92= 






PRBYTE=*2D92 




2343= 






CHR0UT=*2343 




2D73= 






STR0UT=«2D73 




2E79= 






DIRBUF=S2E79 




BC9D 


20F72C 


DCODE 


JSR SWAP 




BCAO 


20A9BC 




JSR D 




BCA3 


20F72C 




JSR SWAP 




BCA6 


4C39BC 




JMP UPDATE 


j RETURN TO BASIC 








; NOTE! BY CHANGING THE FOLLOWING LOCATIONS 








; IN THE OS, 


THE 'D*' COMMAND WILL ALSO BE 



BCA9 20732D D 

BCAC 2A 

BCAD 20 

BCAE 44 

BCAF 49 

BCBO 52 

BCB1 45 

BGB2 43 

BCB3 54 
BCB4 4F 
BCB5 52 
BCB6 59 
BCB7 20 
BCB8 2A 
BCB9 OD 
BCBA OA 
BCBB OA 
BCBC 00 



! AVAILABLE FROM THE OS KERNEL. 

J CHANGE AS FOLLOWS: 

; *2E3D=*2A, *2E3E=»A8, *2E3F=*BC 

I 

JSR STROUT ; PRINT MESSAGE 

.BYTE '* DIRECTORY *' , »D, SA, «A, O 
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BCBD 


A901 




LDA 


#*01 


LOAD SECTOR NUMBER 


BCBF 


8DB3BE 




STA 


COUNT 


SAVE IT 


BCC2 


20D2BC 




JSR 


DIR1N 


READ IN SECTOR 


BCC5 


■ 'of iec 




JSR 


Dl 


PRINT OUT CONTENTS 


BCC8 


EEB3BE 




INC 


COUNT 


BUMP SECTOR NUMBER 


BCCB 


:on: bc: 




JSR 


DIRIN 


REPEAT PROCESS 


BCCE 


20F4BC 




JSR 


Dl 


FOR 2ND SECTOR 


BCD) 


60 




RTS 












; ROUTINE TO READ IN A SECTOR OF DIRTK 


BCB2 


A979 


D1R1N 


LDA 


**79 


I.UAD LOW BYTE 


BCD4 


8D6026 




STA 


ADRLX 


SAVE IT 


BCD7 


A92E 




LDA 


#*2E 


LOAD HIGH BYTE 


BCD'? 


8D6126 




STA 


ADRHX 


SAVE IT TOO 


BCDC 


ADB3BE 




LDA 


COUNT 


LOAD SECTOR # TO RE 


BCDF 


8D5E26 




STA 


SCTN 


SAVE IT 


BCE2 


A908 




LDA 


»*08 


LDAD DIR TK * 


BCE4 


8D6226 




STA 


TRAKX 


SAVE IT 


BCE7 


20A626 




JSR 


SEEKX 


MOVE HEAD TO TRACK 


BCEA. 


205427 




JSR 


LOAD 


LOAD HEAD 


BCEI) 


205D29 




JSR 


CALLX 


READ SECTOR 


BCFO 


206127 




JSR 


UNLOAD 


UNLOAD HEAD 


BCF3 


60 




RTS 




AND 60 BACK 








! ROUTINE TO PRINT CONTENTS OF DIRBUF 


BCF4 


AOOO 


Dl 


LDY 


#*00 


INIZ POINTERS 


BCF6 


8CB2BE 




STY 


FIFTH 




BCF9 
BCFB 


A200 
B9792E 


D2 


LDX 
LDA 


#*00 
DIRBUF, Y 




FETCH A BY IE 


BCFE 


E006 




CPX 


#$06 


IS IT START TK tt? 


BDOO 


F01A 




BEG 


TK1 


YES! PRINT IT 


BDOl' 


E007 




CPX 


#*07 


END TRACK # ? 


BD04 


F021 




BEQ 


TK2 


YES! PRINT IT 


BB06 


C923 




CMP 


#'# 


IS ENTRY A NULL? 


BD08 


F008 




BEQ 


DO 


■ YES! SKIP IT 


BDOA 


204323 




JSR 


CHROUT 


NO! PRINT IT 


BDOD 


E8 


D3 


INX 




. BUMP ENTRY COUNTER 


BDOE 


CB 


D4 


I NY 




BUMP BUFFER POINTER 


BDOF 


DOEA 




BNE 


D2 


; LOOP 'TIL DONE 


BD11 


88 




DEY 






BD12 


98 


DO 


TYA 




X-FER POINTER 


BD13 


18 




CLC 




: TO ACCUMULATOR 


BD14 


6908 




ADC 


tt*08 


BUMP TO NEXT ENTRY 


BD16 


A8 




TAY 




: X-FER IT BACK 


BD17 


B041 




BCS 


QUIT 


BRANCH IF DONE 


BD19 


4CF9BC 




JMP 


D2-2 


LOOP IF NOT 


BD1C 


A920 


TK1 


LDA 


*' 


LOAD BLANK 


BD1E 


204323 




JSR 


CHROUT 


PRINT IT 


BD21 


2033BD 




JSR 


TKOUT 


PRINT START TK# 


BD24 


4C0DBD 




JMP 


D3 


AND LOOP 


B027 


A92D 


TK2 


LDA 


#'- 


LOAD "-" 


BD29 


204323 




JSR 


CHROUT 


PRINT IT 


BD2C 


2053BD 




JSR 


TKOUT 


PRINT END TK# 


BD2F 


EEB2BE 




INC 


FIFTH 




BD32 


ADB2BE 




LDA 


FIFTH 




BD35 


C904 




CMP 


ff«04 




BD37 


DOOB 




BNE 


TK3 




BD39 


206A2D 




JSR 


CRLF 




BD3C 


A200 




LDX 


#*oo 




BD3E 


8EB2BE 




STX 


FIFTH 




BD41 


4C0EBD 




JMP 


D4 




BD44 


98 


TK3 


TYA 






BD45 


48 




PHA 






BD46 


20732D 




JSR 


STROUT 




BD49 


20 




. BYTE ' ' , «00 




BD4A 


20 










BD4B 


00 










BD4C 


A200 




LDX 


(WOO 




BD4E 


68 




PLA 






BD4F 


A8 




TAY 






BD50 


4C0EBD 




JMP 


D4 




BD53 


B9792E 


TKOUT 


LDA 


DIRBUF, Y 


LOAD TRACK # 


BDS6 


20922D 




JSR 


PRBYTE 


PRINT IT 


BD59 


60 




RTS 






BD5A 


206A2D 


QUIT 


JSR 


CRLF 




BD3D 


60 




RTS 












S ROUTINE TO CONVERT DEI 


DIMAL TO HEX 


BD5E 


A002 


HO 


LDY 


#*02 




BD60 


B1C7 




LDA 


<TXTPTR),Y 




BD62 


C924 




CMP 


#** 


HEX TO DEC ? 


BD64 


F068 




BEQ 


CONV 


YES! DO HEX -DEC 


BD66 


A 200 




LDX 


#»00 


™iz x (Continued) 



color to the ASCII value of x, "S*" tog- 
gles the screen scrolling on and off, 
"Q*x" is like POKEing 56832 with V 
for the screen/sound select, "R*" 
resets NEW, LIST, and < CTRL > 'C, 
"D*" prints a directory of the disk in 
the currently selected drive, "H'xxxxx" 
converts decimal "xxxxx" to hex, 
"H*$xxxx" converts from hex to 
decimal, and "p*" dumps text from 
the screen to the serial printer port. 
These commands may be used in either 
the program or the immediate mode, 
which means they can be entered from 
the keyboard or embedded in your pro- 
grams. The disk directory can be handy 
if you are trying to find where a certain 
program is on disk; the hex-dec con- 
verter can save a lot of headaches when 
writing USR(X) routines. Note that the 
"H*" command doesn't expect a 
specific format. 

In order to save room I used existing 
code in the operating system where 
possible. OS-65D V3.3 owners may 
want to alter the output routines to for- 
mat the output of the directory a little. 

My thanks to OSI for the original 
idea. They deserve a lot of credit for 
making this information available and 
workable on so many different systems. 



COLOR VIDEO MONITORS 

. COMPOSITE VIDEO INPUT, NTSC: 
TC-700 13" color monitor/TV receiver, 
switchable. $399.00. TC-900 19" mon- 
itor/TV receiver, $495.00. 

• Sony TV to video monitor conversion 
kit, MCK-100;optc-isolator input. $135.00. 

. RGB VIDEO MONITORS: Analog or 
TTL drive, 380 x 350 resolution. 
13" CRM-13S485.00 
19" CRM-19 $575.00 
15" Trinitron, 3 modes, RGB, compos- 
ite video, TV. $1095.00, CM 15 RGB. 

• RGB converter board for Apple 11, 
provides RGB video and sync; mod. 
VCB-A2. $179.00. 

• Sony TV to RGB and composite video 
monitor conversion kit, RGB-100: 
$295.00 (available January 1982). 

For additional information, contact: 

P.O. Box 339 

Warrington, PA 18976 

(215) 343-3000 

DEALER INQUIRIES INVITED 
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BOOKS and 
SOFTWARE 



For ATARI - PET - OSI - APPLE II -6502 



ATARI BASIC - Learning by 
Using 

Tnis new book is an "Action" 
Book. You do mwo than read it 
Learn the intricacy of ATARI- 
BASIC thorugh the short programs 
ided. The 
challenge you to 



(Screen Drawings. Special Sounds, 
Keys. Paddles * Joysticks 

Specialized Screen Routines. 

Graphics and Sound. Peeks and 

Pokes and special stuff ). 

Order-No. 164 69.95 

Games for the ATARI-Computer 
to program your own games 

on the ATARI. Complete listings 
in BASIC and Machine Language 
"' lxciting games. Tricks and.v 



the ATARI 400/800. 
This powerful monitor provides 
you with the firmware support 
that you need to get the most 
out of your powerful system. 
ATMONA-1 comes on a bootable 
cassette. No cartridges required. 
Disassemble, Memory Dump HEX 
♦ ASCII. (Change Memory 



" trod 
.,._ on how to program the 
achlne 
u in ROM) 
Order No. 7022 619.95 

ATMONA-2 Superstepper 

<w*y powerful Tracer m i?«nlnr 
•ATARI ROM/RAM i 

at previously sclecioi 

Opcode or operand (ca 

Order No. 7049 S49.95 

EDITOR/ASSEMBLER for 
ATARI 800. 32K RAM 



Editor/Assembler (8K Sourt 

code in about 5 seconds) Includ 

ATMONA-1 

Order-No. 7098 649.95 

MACRO- Assembler 

lor ATARI 800. 48K RAM 

Please specify your system RAM. 



Order-No. 7099 689.00 

Gunlight - For ATARI 400/800 
16K RAM. needs two Joysticks, 
lund. (8K machine 



EPROM BURNER for ATARI 
400/800. Bare boards only with 
description, schematic + software 
(2716,2732) 

- -"11 699.00 

■ Writing for very small 
ss with ATARI 400/800 
16K BAM. 

Order-No. 7022. cats. 629.85 

Order-No. 7200. disc. 639.99 



How to connect your EPSON- 
the ATARI 400/800. 
with primed 
d software. 



The Third Book of Ohto Sctentifir 

Vary important Informs * 
the OSI system expe 
Interface tcchnlQues. sysici 



(EPROM Burner. 6522 I/O- 
card with IK RAM, Soundboard. 
EPROM/RAM board). 

" 169 67.95 

rth Book of OHIO 
VIP-Book - Very Important 
Programs. Many Interesting pro- 
grams for OSI computers. ' 
(Binary Tree) Differential Equi- 
tation. Statistic? * 
Consumption. G 

Order-No. 160 89.95 

VIP Package - Above book plus 

•ith the programs. 
Order-No. 160 A 619.95 

The Fifth book of Oh'- "-*— 



and much more (polled keyboard) 



ClPMF. C4P Disk and Cas 

8K RAM. 

Order-No. 8234 629.80 

Mailing Lfct (or C1PMF or 

C4PMF 24K RAfvL. 

250 addres 

and pa rami 

Order No. 8240 629.80 

8K Microsoft BASIC Rel 



iopod for ALTAI R 

and later computers including 
OSI. PET . TRS-80 and VIC. 
Order No. 141 69.95 

E»pansion Handbook for 6502 



SYM, AIM. VIC. PET. OSI) 



8085. 8255, 6251 chips. Very 

necessary for the hardware buff, 

Order-No. 153 69.95 

Complex Sound G 

New revised applicatior 

for the Texas Instrun 

76477 Complex Sound Gi 

tor. 

Order-No. 154 66.95 

Small Business Programs 

Complete listings for the business 



OS OS 



Order-No. 157 67.95 

i Second Book of Ohio 

luable information about 
licrocomputer systems. 
Introduction to OS-65 D and 
rking. 
hints ana 



Mailing List 

Introduction to Business Appli- 
cations. 
Order-No. 156 614.90 

Microcomputer Hard 

book 

Descritfons, p" 

cations of I 

microprocessor 

A MUST for the I 

Order-No. 29 614.95 



Eight chapters exploring PET 
hardware. Includes re. 
in format io 
muting tricks and sen 
Order-No. 160 69.95 

Prototype-Expansion Boerd for ' 
VIC-20 (S44 Bus). 
Order-No. 4844 & 1 8.95 

16K RAM/ROM board for S44- 

bus. Any combination ol RAM 

and BOM on one board. 

!SY2128orS716) 

Order-NO. 613 639.95 



licrocomputer systems. Order-No. 604 629.0* 

Introduction to OS-65 D and 6522 VIA-I/O Exp. 
re Older- No. 605 
s. 2716EPBOMBu 

Order-No. 607 649,01 

8K EPROM/RAM Card 
Order-No. 158 67.95 Order-No. 609 629.01 

ELCOMP Publishing, Inc., 53 Redrock Lane 
Pomona, CA 91766. Phone: (714) 623-8314 

trtey Order. VISA, Mastercharge, Eurocheck. 
POSTPAID or PREPAID in USA 65.00 handling fee for C.O.D. All 
orders outside USA: Add 15 % shipping. CA add 6.5 % sales tax 
ATARI is a registered trademark of ATARI Inc. 
APPLE II is a registered trademark of APPLE Inc. 



Trethewey Listing (Continued) 




BD68 8EB1BE 




STX 


RESHI 


; INIZ RESHI 


BD6B B1C7 


HI 


LDA 


(TXTPTR) , Y 


; GET CHARCTER 


BD6D C930 




CMP 


##30 


; IS IT ft t ? 


BD6F 900F 




BCC 


H2 


i NO! CALCULATE 


BD71 38 




SEC 






BD72 E930 




SBC 


tt$30 


; STRIP OFF ASCII 


BD74 9DB5BE 




STA 


INBUF.X 


! SAVE IT 


BD77 CB 




I NY 






BD78 EB 




INX 




; BUMP POINTERS 


BD79 E006 




CPX 


»*06 


; TOO MANY DIGITS? 


BD7B F003 




BEQ 


H2 


: CALCULATE ANYWAY 


BD7D 4C6BBD 




J MP 


HI 


5 NO! ==> LOOP 


BD80 98 


H2 


TYA 






BD81 18 




cue 






BD82 65C7 




ADC 


TXTPTR 




BDB4 85C7 




STA 


TXTPTR 


; UPDATE BASIC 


BDB6 CA 




DEX 




; BUMP X BACK 1 


BD87 BDB5BE 




LDA 


INBUF.X 


; GET ONES 


BDBA 8DB0BE 




STA 


RESLO 


; ALWAYS SAVE IT 


BD8D EOOO 




CPX 


#*00 


; SINGLE DIGIT ? 


BD8F F029 




BEQ 


PRINT 


; YES! PRINT! 


BD91 A003 




LDY 


#*03 


; SET POINTER TO TBLS 


BD93 CA 




DEX 




; BUMP X BACK ONE 


BD94 8EB3BE 


H3 


STX 


COUNT 


; SAVE X 


BD97 BDB5BE 




LDA 


INBUF. X 


; GET NUMBER 


BD9A F01A 




BEQ 


H5 




BD9C AA 




TAX 




; X-FER FOR COUNTER 


BD9D A0BOBE 


H4 


LDA 


RESLO 


; LOAD LOW BYTE 


BDAO 18 




CLC 






BDA1 79ABBE 




ADC 


TBL1.Y 


! ADD FROM TABLE 


BDA4 8DB0BE 




STA 


RESLO 


; SAVE IT 


BDA7 ADB1BE 




LDA 


RESHI 


: LOAD HIGH BYTE 


BDAA 79ACBE 




ADC 


TBL2, Y 


; ADD FROM TABLE 


BDAD 8DB1BE 




STA 


RESHI 


; SAVE IT 


BDBO CA 




DEX 




; DECREMENT COUNTER 


BDB1 DOE A 




BNE 


H4 


; LOOP TIL DONE 


BDB3 AEB3BE 




LDX 


COUNT 


; FETCH » OF DIGITS 


BDB6 88 


H5 


DEY 






BDB7 CA 




DEX 




S BUMP DIGIT COUNTER 


BDB8 10DA 




BPL 


H3 


! LOOP 'TIL DONE 


BDBA ADB1BE 


PRINT 


LDA 


RESHI 


: FETCH HIGH BYTE 


BDBD F003 




BEQ 


PR10 


: IF SKIP IT 


BDBF 209220 




JSR 


PRBYTE 


; NON-0. SO PRINT IT 


BDC2 ADBOBE 


PR 10 


LDA 


RESLO 


s FETCH LOW BYTE 


BDCS 20922D 




JSR 


PRBYTE 


! PRINT IT 


BDC8 206A2D 




JSR 


CRLF 


; DO A <CR> <LF> 


BDCB 4C44BC 




JMP 


UP1 


j RETURN TO BASIC 






! ROUTINE TO CONVERT 


HEX TO DECIMAL 


BDCE CB 


CONV 


INY 




! BUMP POINTER 1 


BDCF A200 




LDX 


#*00 


: INI 2 COUNTER 


BDD1 8EB2BE 




STX 


FIFTH 




BDD4 8EB1BE 




STX 


RESHI 




BDD7 B1C7 


H10 


LDA 


(TXTPTR) ,Y 


s FETCH CHARACTER 


BDD9 C930 




CMP 


#'0 


i IS IT A NUMBER? 


BDDB 90 1 1 




BCC 


H12 


; NO! CALCULATE 


BDDD 38 




SEC 






BDDE E930 




SBC 


#■0 


! STRIP OFF ASCII 


BDEO C90A 




CMP 


#*0A 




BDE2 9002 




BCC 


Hll 




BDE4 E90 7 




SBC 


«*07 




BDE6 9DB5BE 


Hll 


STA 


INBUF.X 


! SAVE VALUE 


BDE9 EB 




INX 




: BUMP COUNTERS 


BDEA CB 




INY 






BDEB 4CD7BD 




JMP 


H10 


: AND LOOP 


BDEE CA 


H12 


DEX 




< BUMP BACK ONE 


BDEF 98 




TYA 




; XrFER # OF CHARS 


BDFO 18 




CLC 






BDF1 65C7 




ADC 


TXTPTR 


i AND UPDATE BASIC 


BDF3 8SC7 




STA 


TXTPTR 




BDF3 BDBSBE 




LDA 


INBUF, X 


! LOAD ONE'S VALUE 


BDF8 D90A 




CMP 


ttSOA 


; ADJUST FOR HEX 


BDFA 3006 




BM1 


H30 




BDFC 3B 




SEC 






BDFD E90A 




SBC 


tttOA 




BDFF 18 




CLC 






BEOO 6910 




ADC 


#«10 




BE02 8DB0BE 


H30 


STA 


RESLO 


t ALWAYS SAVE IT 


BEOS EOOO 




CPX 


MOO 


S ARE WE DONE? 


BE07 F021 




BEQ 


PR 


; YES ! BRANCH 


BE09 CA 




DEX 




! NO. BUMP COUNTER 


BEOA AOOO 




LDY 


e«oo 


; INIZ COUNTER 


BEOC BEB4BE 




STX 


POINT 




BEOF AEB4BE 


H13 


LDX 


POINT 


! FETCH POINTER 


BE 12 BDBSBE 




LDA 


INBUF. X 


! GET CHAR FROM BUFFR 
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BE 15 


F007 




BEQ 


HIS 


IF ZERO, SKIP IT 


BE17 


AA 




TAX 






BE1B 


2038BE 


H14 


JSR 


ADD 


DO ADDUP ROUTINE 


BE1B 


CA 




DEX 






BE1C 


DOFA 




BNE 


H14 




BE1E 


ADB4BE 


H15 


LDA 


POINT 




BE21 


F007 




BEO 


PR 


BRANCH WHEN DONE 


BE23 


CEB4BE 




DEC 


POINT 


BUMP COUNTERS 


BE26 


C8 




INY 






BE27 


4C0FBE 




JMP 


H13 


AND LOOP 


BE2A 


ADB2BE 


PR 


LDA 


FIFTH 


FETCH 5TH DIGET 


BE2D 


F006 




BEO 


PR1 


SKIP IF ZERO 


BE2F 


18 




CLC 






BE30 


6930 




ADC 


t»»30 


ADJUST TO ASCII 


BE32 


204323 




JSR 


CHROUT 


AND PRINT IT 


BE35 


4CBABD 


PR1 


JMP 


PRINT 


FINISH ELSEWHERE 


BE38 


F8 


ADD 


SED 




WE'RE USING BCD HER 


BE 39 


ADBOBE 




LDA 


RESLO 


FETCH LOW BYTE 


BE3C 


18 




CLC 






BE3D 


79A2BE 




ADC 


LOTBL, Y 


ADD FROM TABLE 


BE40 


8DB0BE 




STA 


RESLD 


SAVE RESULT 


BE43 


9003 




BCC 


ADD1 


ADJUST FOR OVRFLO 


BE45 


EEB1BE 




INC 


RESHI 




BE4B 


ADB1BE 


ADD1 


LDA 


RESHI 


FETCH HIGH BYTE 


BE4B 


18 




CLC 




AND CONTINUE AS 


BE4C 


79A5BE 




ADC 


HITBL.Y 


BEFORE 


BE4F 


8DB1BE 




STA 


RESHI 




BE52 


9003 




BCC 


ADD2 




BE54 


EEB2BE 




INC 


FIFTH 




BE57 


D8 


ADD2 


CLD 




RESET BCD FLAG 


BESS 


60 




RTS 




AND GO BACK 








1 ROUTINE TO DUMP SCREEN TO PRINTER 


00F1" 






LOC= 


=*F1 




BE59 


A901 


PI 


LDA 


#*01 


LOAD PRINTER DEVICE 


BE5B 


8D2223 




STA 


8994 


SAVE IN OUTPUT FLAG 


BE5E 


A900 




LDA 


**00 


INIZ LOC TO SCREEN 


BE60 


85F1 




STA 


LOC 


ADDRESS 


BE62 


A9D0 




LDA 


#*D0 




BE64 


85F2 




STA 


LOC+1 




BE66 


AOOO 




LDY 


#*00 


INIZ POINTER 


BE68 


B1F1 


P2 


LDA 


(LOC) , Y 


FETCH CHARACTER 


BE6A 


C920 




CMP 


#' 


CHECK FOR GRAPHICS 


BE6C 


1005 




BPL 


P3 


CHARACTERS 


BE6E 


A920 




LDA 


#' 


AND PRINT A BLANK 


BE70 


4C7ABE 




JMP 


P5 


INSTEAD 


BE73 


IB 


P3 


CLC 






BE74 


C97F 




CMP 


#*7F 




BE76 


3002 




BMI 


PS 




BE78 


A920 




LDA 


#" 




BE7A 


204323 


P5 


JSR 


CHROUT 


PRINT! 


BE7D 


CS 




INY 




BUMP POINTERS 


BE7E 


C040 




CPY 


#*40 




BE80 


D0E6 




BNE 


P2 




BE82 


AOOO 




LDY 


#»00 




BE84 


A5F1 




LDA 


LOC 




BE86 


18 




CLC 






BE87 


6940 




ADC 


tt*40 




BE89 


85F1 




STA 


LOC 




BE8B 


A5F2 




LDA 


LOC+1 




BE8D 


6900 




ADC 


#0 




BE8F 


85F2 




STA 


LOC+1 




BE91 


206A2D 




JSR 


CRLF 


END OF LINE 


BE94 


A5F2 




LDA 


LOC+1 




BE96 


C9D8 




CMP 


#*D8 




BE98 


DOCE 




BNE 


P2 




BE9A 


A902 




LDA 


#*02 


RESTORE OUTFLAG 


BE9C 


BD2223 




STA 


8994 




BE9F 


4C39BC 




JMP 


UPDATE 


AND GO BACK 


BEA2 


16 


LOTBL 


.BYTE *16,*56,*96 




BEA3 


56 










BEA4 


96 










BEA5 


00 


HI TEL 


.BYTE *00,'*02,*40 




BEA6 


02 










BEA7 


40 










BEA8 


10 


TBL1 


.BYTE «10,*E8,*64,*0A 




BEA9 


E8 










BEAA 


64 










BEAB 


OA 










BEAC 


27 


TBL2 


.BYTE *27,*03,*00,*00 




BEAD 


03 










BEAE 


00 










BEAF 


00 










BEBO 


00 


RESLD 


. BYTE $00 




BEB1 


00 


RESHI 


. BYTE *00 




BEB2 


00 


FIFTH 


.BYTE *00 




BEB3 


00 


COUNT 


.BYTE »00 




BEB4 
BEB5= 


00 


POINT 


. BYTE *00 
INBUF=» 


JMCftO 



APPLESCOPE 

DIGITAL STORAGE OSCILLOSCOPE 
Interface lor the Apple II Computer 




The APPLESCOPE system combines two high speed 
analog to digital converters and a digital control board 
with the high resolution graphics capabilities of the Apple 
II computer to create a digital storage osciiiosocpe. 
Signal trace parameters are entered through the keyboard 
lo operational software provided in PROM on the Dl 
control board. 

• DC to 3.5 Mhz sample rale with 1024 byte butler 
memory 

• Pretngger Viewing 

• Programmable Scale Select 

• Continuous and Smgie Sweep Modes 

• Single or Dual Channel Trace 

Price lor the two board Applescope system is S595 
EXTERNAL TRIGGER ADDAPTER $29 

APPLESCOPE ACCESSORIES 

APPLESCOPE-HR1 2 High resolution 1 2 bit analog to 
digital converter wilh sample rates to 1 00 Khz. Requires 
4SK Apple il with disk drive. Soltware provide on floppy 
disk includes basic SCOPE DRIVER package. 

Price per channel $695 
APPLESCOPE-HRHS High Resolulion AND High Speed. 
Circuit combines two 6 bit Mash analog to digital conveners 
to give a 1 bit dynamic range. The 1 bit converter resolu- 
tion is maintained ai sampling rates up lo the 7 Mhz. maxi- 
mum lor signal slew rales less than .5 volts per micro- 
second. Larger mpuis slew rates will reduce the converter 
resolution to 6 bits until the signal stabilizes within the 5 
Volt per microsecond limit. ReQuires 48K Apple II with disk 
drive. Soliware provided on disk includes the basic 
SCOPE DRIVER package Price per channel $695 

APPLESCOPE-EXT External trigger adapter has a 
switch selectable external trigger input to a BNC con 
nector mounted in a rear slot of Ihe Apple n computer 

Price $29.00 
APPLESCOPE-BNCBNCadapter connects the Berg stick 
connectors on the At circuit card lo male BNC plugs 
mounted in a rear slol ot (he Apple II compter. 

Price $14.95 
BUS EXTENDERS Allow easy access to Apple II 
peripheral circuit cards. Price $19.95 

SCOPE PROBES Oscilloscope probes lor use wilh ihe 
APPLESCOPE - BNC adapler Price$29.95 

SCOPE DRIVER Advanced soflware lor ihe Applescope 
system provided on bV*' floppy disk. Available options 
include 

• Signal Averaging - Acquires I lo 25ti signal sweeps 
and displays (he averaged result. 

• Digital Voll Meter - Allows use as a real lime DVM or use 
lo measure points on an acquired sweep 

• Hard Copy - Uses graphics printer to produce hard- 
copy output of displayed traces. 

• Disk Storage - Allows automatic storage and recover 
of acquired data on lloppy disks 

• Spectrum Analyzer- Calculates and displays frequency 
spectrum ol acquired data 

BUS RIDER 
LOGIC ANALYZER for the APPLE II 

Ihe BUS RIDER circuit card silently rides Ihe Apple II 
peripheral bus and allows real time tracking ot program 
How. Software provided on EPROM allows set up of trace 
parameters Irom the keyboard and read back ot disas- 
sembled code atler a program has been tracked 

• 32 bit Dy 1024 sample memory buffer 

• Monitors Data and Address bus plus 8 external inputs 

• Trigger on any 32 bit word or external trigger 

• Prelngger viewing 

The BUS RIDER is an invaluable development tool lor 
anyone working with Apple II or Apple 11+ computers. 

Price $295 

RC ELECTRONICS INC. 

7265 Tuolumne St., Goleta. CA 931 1 7 

Visa (805)968-6614 M/C 
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KSHLflS 



A\ 



FATA R I [owners. 



O High resolution graphics- 
Life like motion. 

O Instant replay on any shot. 

O Superfine aiming. 

O Pool room sound effects 

O Choice of 4 popular games 



See your local 
computer dealer 
or order directly 
from IDSI. 
Specify ATARI 
or APPLE. 



ATARI is the registered trademark of ATARI Inc. 
APPLE II is the registered trademark of 

APPLE Computer Inc. 
POOL 1.5 is trademark of IDSI. 
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Microbes 
and Updates 



Roland E. Guilbault of Atkinson, New 
Hampshire, sent this note: 

"Sorting" by William R. Reese 
(MICRO 39:29) is just what I needed to 
implement a record cataloging program 
that I am designing. Although the arti- 
cle is good, the listings have many 
typographical errors. The corrected 
lines follow: 

LOAD SINGLE.S0RT1 

105 V$(l) = "4": FOR J = 1 TO 8: 
V$(l) = V$(l) + STR$ ( INT (10 * 
RND(1))): NEXT J 

112 REM SORT START HERE 

115 V$(N + 1) = "999999999": 
SS%(N + 1) = N + 1 

180 Q = SK(ST):P = SK(ST - 1) 

200 FOR I = TO N: PRINT I; TAB( 5); 
SS%(I); TAB( 10);V$(SS%(I)): 
NEXT 

1145 VI = SS%(P):VH$ = V$(VI):I = 
P:J = K 

LOAD DOUBLE.SORT 

105 W$(l) = "4": FOR J = 1 TO 
8:W$(I) = W$(l) + STR$(INT(10 
« RND (1))): NEXT J 

130 IF P > = QTHEN 170 

200 FOR I = TO N: PRINT I; TAB( 5); 
SS%(I); TAB( 10);V$(SS%(I)); TAB( 
20 );W$(SS%(I)): NEXT 

1160 J = J - 1: IFV$(SS%(J))< VH$ 
THEN 1170 

1161 IFV$(SS%(J)) > VH$GOTO1160 

1162 IF W$(SS%(J)) < = W$(VI) 
GOTO 1170 

1171 IFV$(SS%(I))< VH$GOTO1170 

1190 GA = SS%(I):GB = SS%(J) 

The program can be optimized by 
changing line 1190 and 1195 to the 
following: 

1190 GA = SS%(I) 

1195 SS%(I) = SS%(J):SS%(J) = GA 
:GOTO 1160 



Maurice Bernstein of Panorama City, 
California, wrote in with these modifi- 
cations to "Othello" by Charles F. 
Taylor, Jr. (42:63): 

Over the past couple of years I have 
found very few game programs modi- 
fied for use with modems. I have not 
seen games for modem use in computer 
stores. Yet it is the very use of modem 
communication that could add another 
dimension to the recreational use of the 
microcomputer, expanding game com- 
petition to outside the household. 

I have found that the game program 
"Othello" by Charles F. Taylor, Jr., in 
the November 1981 issue of MICRO, is 
a good example of a competitive Lo-Res 
game which can be easily modified for 
modem use. 

The additions and minor modifica- 
tion noted below are based on the 
following assumptions: 

1. Both Apple II computers using this 
Applesoft BASIC program have 
DOS. 

2. Both computers use a Hayes Micro- 
modem II with the card in slot #3, 
and are at the outset established in 
terminal-terminal half-duplex mode. 

3. Both computers have the modified 
"Othello" program loaded in mem- 
ory and the players have agreed who 
will move first. 

First, each player types a CTRL A, 
CTRL X sequence to leave the terminal 
mode. Then each player types 'RUN', 
and when prompted, types his turn 
number. The players type the legal 
coordinates, in turn, as if running the 
program without a modem. At the 
game's end, lines 750 and 760 from the 
original program prompt whether or 
not to play again. These can be left out. 

These routines could be used for 
other games where the controlling 
characters would be string expressions 
of paddle values (e.g., STR$(PDL(0)) ). 
These values would transmit and then 



recover the integer value on reception 
using the VAL command. If any ran- 
dom values are generated in the pro- 
gram, the random value as an ASCII 
character must come from one com- 
puter only and be transmitted to the 
other computer. Otherwise, you won't 
get synchronous graphics. 

OTHELLO by Charles F.Taylor 

Modifications for modem use by 
Maurice Bernstein, M.D., December 
1981. 

INITIALIZE DOS COMMAND 

Add line 152 D$ = CHR$(4) 

INDICATE TURN SEQUENCE 

Add line 792 PRINT" WHICH TURN DO 
YOU WANT? 1 OR 2": INPUT TURNS: IF 
TURN$< >'1" AND TURN$< > "2" 
THEN HOME: GOTO 792 

FIND WHETHER TO TRANSMIT AND IF 
SO GO TO SUBROUTINE 

Change line 1340 IF TURN = 
INT(VAL(TURN$)) THEN GOSUB 2000: 
GOTO 1350 



RECEIVE ROUTINE 

Add line 1345 PRINT D$; "PR #0" 

Add line 1346 PRINT D$; "IN #3" 

Add line 1348 INPUT MOVES 

TRANSMIT SUBROUTINE 

Add line 2000 PRINT D$; "IN #0" 

Add line 2002 INPUT MOVES 

Add line 2010 PRINT D$; "PR #3" 

Add line 2020 PRINT MOVES 

Add line 2030 PRINT D$ ;"PR#0" 

Add line 2040 RETURN 



// you've discovered a microbe or 
developed an update, send your infor- 
mation to Microbes/ Updates, MICRO, 
P.O. Box 6502, Chelmsford, MA 01824. 

JMCftO 
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Speed 
Power 
Efficiency 



for 



OSI 

65D3 SYSTEMS 



FBASIC: BASIC Compiler $155/$10 

• FAST efficient machine code written 
with the ease of BASIC. 

• SPEED-optimized, native-code compiler. 

• INTEGER subset of OSI-supplied BASIC. 

• DISK based: No problem with size of 
source or object files. 

• EXTENSIONS to BASIC: 

- Simple interface to system hardware 
and software. 

- Direct access to 6502 registers. 

- Array initialization. 

- Optional absolute array locations. 

- WHILE and other structures. 

- Simple technique for combining 
compiler and interpreter advantages. 

• FULL system: utilities (plus source), 
manual, and many useful examples. 



R-EDIT: Edit any program 
or text with ease! 



$40 



FULL CURSOR control. Edit anywhere on 

the screen. 

INSERT, replace, add, delete. 

ONE KEY stroke and you're editing. 

BASIC, assembler, etc. can all be 

edited without reloading editor. 

RAM-resident: Always ready! 

SYSGEN relocates R-EDIT and customizes. 



SPUL-65: Printer Spooler $95/$10 
Virtual Indirect File 

• STOP WAITING for your printer! 

• PROCESS words, write programs.. .all 
while printing! 

• QUEUE lets you pile on print jobs. 

• MULTIPLE COPIES printed with top and 
bottom page margins. 

• SYSGEN relocates SPUL65 and gives 
extensive customization. 

• INDIRECT FILE commands produce disk 
files giving you: 

- A virtually unlimited temporary file. 

- A link between incompatible files; 
for example, use WP-2 for extensive 
BASIC editing. 

- Ability to merge multiple program 
segments. 



XREF: BASIC Cross Referencer $25 

• TABULATES: 

- Referenced line numbers. 

- Variable names (numeric, string, 
array). 

- Defined functions. 

• FAST machine language program. 

• DISK based: Handles large BASIC source 
files on any drive. 




wore 



CP/M to OSI Disk Translation 

Frustrated by all those good CP/M disks 
that won't run on your OSI CP/M system? 
It's that special OSI disk format! And 
we can fix that. Just send us your disk, 
$15, and you'll soon have an OSI compat- 
ible disk. 



Data Resource Corporation 

Suite 204 

1040 Lunaai Street 

Kailua, HI 96734 (808)261-2012 



Manual orders applied to software 
purchases. Programs supplied on 8-in, 
single-density, single-sided disks. 
Hawaii residents add 4% tax. 



Microsoft BASIC-in-ROM 

Extensions 



PRINT AT and CALL functions 
are added to OSI BASIC-in-ROM 
using Ed Carlson's technique. 
Minor modifications may be 
made to apply these functions 
to other machines. 



Michael M. Mahoney 
4136 NE 14th Street 
Portland, Oregon 97211 



This article is primarily intended for 
OSI BASIC-in-ROM systems such as 
the C2-4P, C4P or the CI P. However, 
with modifications the program should 
be adaptable to other Microsoft 6502 
BASICS, such as PET BASIC or Apple- 
soft. It can even be modified for use 
with OSI Disk BASIC. 

The programs were written on an 
OSI C2-4P with 20K RAM, using 
BASIC-in-ROM and OSI's 65XX 
Assembler. 

In the June 1980 issue of MICRO 
(25:15), Ed Carlson presented an article 
entitled "Put Your Hooks Into OSI 
BASIC" which explained a method of 
adding new commands (pseudo key- 
words) to OSI BASIC-in-ROM. His 
method consisted of altering the 
character parser, located in page zero, 
to recognize and process the additional 
commands. I thought Mr. Carlson's 
idea was excellent and searched the 
succeeding issues of MICRO, and other 
magazines, for additional articles or 
routines to use with his method. I 
never found one, so I wrote one myself. 

This article adds two new pseudo 
keywords (PRINT AT and CALL) and 
fixes a minor problem I discovered in 
the original version. It also presents a 
more elegant solution to the dual key- 
word flag situation. 



How it Works 

OSI BASIC-in-ROM, and most 
other Microsoft 6502 BASICs, contain 
a page zero resident subroutine used by 
all the other routines in BASIC to fetch 
characters, one at a time, from the 
BASIC statement being executed. This 
routine is called a character parser and 
is usually referred to as 'CHRGET'. 

The procedure Mr. Carlson and I used 
alters this routine to jump to some code 
of our own. It will then recognize and 
execute the pseudo keywords. 

The only tricky part is that because 
there are two modes of operation in 
BASIC, (Immediate and Run), Mr. Carl- 
son uses two separate keyword flags to 
allow the pseudo keywords to be en- 
tered into the text workspace. A per- 
cent sign (%) and a pound sign (#) were 
chosen as the keyword flags. When 
entering a BASIC statement containing 
a pseudo keyword, you would type a 
percent sign, and to immediately ex- 
ecute one you would type a pound sign. 
This is somewhat awkward. 

When the altered parser sees a 
pound sign, it executes the appropriate 
routine immediately. When it sees a 
percent sign, the parser routine changes 
it to a pound sign without execution, 
allowing the command to be placed in- 
to the text area. Then the next time the 
line is passed through the parser, it 
recognizes the pound sign and executes 
the pseudo keyword. 

The Problem 

Since the parser changes the percent 
signs to pound signs, when SAVEing 
programs containing pseudo keywords 
to tape, the pound sign is the flag SAVEd. 
So, when LOADing the program back 
from tape, the parser sees the pound 
sign and executes the pseudo keyword 
immedately instead of storing it in the 
text area. 



Depending on the pseudo keyword 
encountered, this may cause the com- 
puter to "hang" or miss several charac- 
ters or lines of your program. Luckily, 
there are several methods to consider 
for preventing this. You can: 

1 . always LOAD your programs before 
LOADing and implementing the 
extensions; 

2. check the LOAD FLAG ($0203) and 
execute pseudo keywords only 
when the LOAD flag is "OFF"; 

3. add special pseudo keywords to 
disable and enable the extensions; 

4. add a special flag that can be set or 
reset from BASIC to control whether 
or not execution should be permitted. 

Option 1 is not very practical since 
it would require resetting the computer 
and reLOADing the extensions every 
time you wished to run a different 
program. 

Option 2 would work, except when 
the program LOADs data from tape. 
Any pseudo keywords between turning 
on and turning off LOAD not only 
would not execute, but would cause a 
syntax error. 

Option 3 is a workable solution, but 
it would take a relatively large amount 
of code to implement. 

This leaves Option 4 — the use of a 
flag — which is the method I chose. It 
has the advantage of requiring little ex- 
tra code, and provides an easy way to 
enable or disable the extensions from 
BASIC. 

By simply entering 

POKE 250,1 < RETURN > 

in the immediate mode, the extensions 
are disabled. And by entering 
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POKE 250,0 < RETURN > 

they are enabled. 

Using a flag also relieves you of the 
necessity of having two different key- 
word flags, thus saving some code and 
removing the awkwardness of remem- 
bering which flag to use. Now to enter 
pseudo keywords either from the key- 
board or tape, you must first disable the 
extensions by POKEing the flag to "1". 
To RUN a program or to do an im- 
mediate mode pseudo keyword, you 
must enable the extensions by POKE- 
ing the flag to zero. I usually place the 
appropriate POKEs at the beginning 
and end of my programs containing 
pseudo keywords. 

The CALL Pseudo Keyword 

The "CALL" command is identical 
in function to the USR(X) command, as 
it is used to transfer control to a 
machine language routine and then 
return to BASIC at the next statement. 
To use the USR function you first need 
to set the USR vector at 11 and 12 
decimal ($0B and $0C) to point to the 
entry point of the machine language 
routine before performing the USR. 
This results in a line of code such as 



POKE 11,0:POKE 
USR(X) 



12,253:X = 



To do this, you must convert the 
address from hex to decimal, then con- 
vert it to the standard 6502 two-byte 
low, high format in decimal so that it 
can be POKEd in BASIC. 

I created the CALL command to per- 
form all that for me. With the CALL, a 
hexadecimal literal, a decimal address 
literal, or a numeric variable contain- 
ing a decimal address, can be used as 
the argument. (Sorry, hexadecimal ad- 
dresses cannot be assigned using a 
string variable.) 



The format for the CALL command is 

#U ADDRESS 

The # is the pseudo keyword flag, the U 
is the CALL pseudo keyword, and AD- 
DRESS is the entry point address of the 
machine language routine. ADDRESS 
may be a decimal number such as 
64783, a numeric variable name such 
as N, a hexadecimal literal such as 
$FD00, or any valid numeric expres- 
sion such as A(J + 2) or 3*J. 

Note that when using the hexa- 
decimal notation option, the address 
must be preceded by a dollar sign ($). 



Listing 1 


CALL Command Examples 






100 


REM 




CALL COMMAND EXAMPLES 




110 
120 
130 
140 
150 
160 


: 

POKE 250,0 

X-6476BSXU) 

#U »FDOO 


I 
»XiX <2> 


REM ENABLE EXTENSIONS 
=X-76B 
REM - HEXADECIMAL LITERAL 




170 


#U 64768 


1 


REM - DECIMAL LITERAL 




180 


#u x 


> 


REM - DECIMAL VARIABLE 




190 


»U X(l) 


' 


REM - DECIMAL ARRAY ELEMENT 




200 
210 
220 


#U X<2)+768 
POKE 250,1 : 


END 


REM - DECIMAL EXPRESSION 



:.-:;.::«:•< \*ra? 



EDITRIX + GRAPHTRIX = THE MOST POWERFUL WORD PROCESSOR 
THIS SIDE OF A NEWSPAPER COMPOSITION ROOM 



EASY TO USE 



EDITRIX,. 
TEXT EDITOR 



• HELP' Key 
• Friendly. COMPLETE instructions that you or your 

secretary can understand. 

• Easy to remember 1 or 2 keystroke commands. 

• See your document formatted on the screen AS YOU 
EDIT IT. 

POWERFUL 

• 250 Column Horizontal Scrolling. 

• Automatic Graphic Insertion and Formatting. 

• Automatic Footnote Insertion. 

• Underline - Superscript - Subscript - Search - Replace - 
Block Move. 

• Full Printsize. Emphasis. Justify. Margin and Cursor 
Control. 

FLEXIBLE 

• Capital letters with ESC or Shift Key modification. 

• To be supported by Data Transforms new headline 
generator coming soon. 

• Printout through GRAPHTRIX to 11 different Printers 
WITHOUT CHANGING YOUR TEXT FILE! 

REQUIRES: Apple II with 48K, Applesoft in ROM. DOS 3.3 
and the GRAPHTRIX Matrix Graphics System 

FROM DATA TRANSFORMS. INC.. 

EDITRIX ana GRAPHTRIX are 

Apple II and Applewnter are trademarks ol Apple Cc....... 

(cl Copynghl 1981 Dala Transforms In- 906 E Film Aw 
All Rignts Reserved 



GRAPHTRIX™ 
TEXT PRINTER AND GRAPHICS SCREEN DUMP 

EASY TO USE 



Complete READABLE documentation. 
- Fully Menu Driven. 

• Self-running Introduction and Demonstration. 
POWERFUL 

• Graphic Magnification. Normal/Inverse. Page Centering. 
Hi and Low Crop Marks. Title String. 

• Automatic Formatting of Graphics in your Document. 

• Print Size, Emphasis. Underline. Superscript, Footnotes. Chapters, 
controlled from your text file. 

FLEXIBLE 

Prints ANY HI-RES Graphic your Apple II can create 
Formats Text files from Applewriter OR EDITRIX. 
Use as a Menu Driven Screen Dump OR from in YOUR OWN 
Applesoft Program. 

• Compatible with 11 different Matrix Line Printers AND 7 different 
Parallel Interface Cards 

REQUIRES: Apple II with 48K. Applesoft in ROM. DOS 3.3 and one of the 
following line printers: EPSON MX-70/MX-80/MX-100. ANADEX 
9500/9501. IDS 440G/445G/460G/560G. CENTRONICS 739. MPI 88G. 
SILENTYPE. 

THE GRAPHICS LEADER 

c . a division ol Solarslalics Inc 
> Oenver CO &02I8 13031 '22-6774 
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Listing 2: PRINT AT Command 

300 REM PRINT AT COMMAND 



INPUT AT WITH SIZE OPTION 



310 ! 

320 REM 

330 : 

340 CUR»=CHR*<1<S1> : REM CURSOR CHARACTER 



350 PROMPT»="What is your name 
3&0 : 



SIZE 



30 



370 POKE 250,0 : REM — ENABLE EXTENSIONS 
380 : 



390 #C 



REM CLEAR SCREEN 



400 #P<12,5) PROMPT* : REM — PRINT PROMPT 

410 I=lsNAME«="" 

420 : 

430 «P< 12,25+1) CUR» : REM— PRINT CURSOR CHAR 



440 #U »FD00 



: REM--POLL KEYBOARD 



450 X-PEEK(531):X«-CHR*<X) : REM— GET KEY PRESSED 

460 : 

470 IF X<>13 THEN 490 

480 #P (12,23+1) " "iBOTO 350 I REM — ERASE CURBOR 

490 IF X<32 OR X>122 THEN 430 : REM IGNORE INVALID CHARS 

500 : 

510 #P(12,25+I) X« l REM PRINT CHARACTER 

520 NAME»=NAME»+X» : REM CONCATENATE NAME 

530 I-I + l J IF KSIZE THEN 430 : REM CHECK FOR SIZEERRORj 

540 : 

550 NAME*="HELLO THERE "+NAME»+" ! " 

560 #P(20,5) NAME« 
570 : 

580 POKE 250, 1 : END 



Listing 3 



BASIC EXTENSIONS VER 1.3 



APR 1981 



; BY MICHAEL M. MAHONEY 

; ADAPTED FROM 'PUT YOUR HOOKS INTO OS I BASIC 
; BY ED CARLSON IN MICRO #25: 15 

5 

i PROCEDURE AND CLEAR SCREEN BY ED CARLSON 

; CALL Sc PRINT AT COMMANDS, AND 

; ENABLE/DISABLE FLAG BY MIKE MAHONEY 

I EQUATES 

» 

PARSER - »O0BC I GETCHR ROUTINE 

GETCUR - »00C2 ; ENTRY - GET CURRENT CHAR 

POINTR = «00C3 5 CODE POINTER FOR PARSER 

j PAGE ZERO LOCATIONS USED BY EXTENSIONS 

ROLBYT " »E7 ; USED FOR BIN CONVERS 

D.FLAG - «FA | DISABLE FLAG (250 DECIMAL) 

TEMP2 - *FC 

TEMPI - «FE 



I 

! BASIC 

» 

VARTYP 

STRPTR 

ERRPRT 

EXPR. 1 

EXPR.2 

RPAREN 

LPAREN 

COMMA 

SETSTR 

SETPTR 

EXPR. 8 

FIX 

FP.STR 

LEGAL 



ROUTINES AND POINTERS 



•5F 

•71 

*A256 

•AAAD 

•AAC1 

•ABFB 

•ABFE 

•AC01 

•BOAE 

•B2B6 

•B3AE 

•B408 

• B96E 



STRING 



VAR TYPE FLAG (>»7F 

BASIC STRING PTR 

PRINT ERROR MESSAGE 

EVAL EXPRESS WITH TM CHECK 

EVAL EXPRESS - NO TM CHECK 

SN ERR IF NOT ')' 
I SN ERR IF NOT ' (" 
I SN ERR IF NOT ' , ' 
! SCAN & SETUP STRING 
j GET PTRS AND LEN OF STRING 
I 8 BIT EXPRESS EVALUATION 
; CONVERT FL ACC TO FIXED 
1 CONVERT FL ACCUN TO STRING 



- »FE93 j CHK FOR LEGAL ASCII HEX 

(Continued) 



Olympic 
Sales 

jam SERVING YOU SINCE 1947 

Company 

Main Showroom & Offices: [ _„,.„,. _ i 
216 South Oxford Avenue visa 

Los Angeles, CA 90004 __ 

WE HONOR £§51 

VISA and MASTERCHARGE *« 



TELEX: 67 34 77 

ORDER DESKS open 7 Days a Week! 

7:00 AM to 7:00 PM Mon thru Sat 

Sunday Noon to 5:00 PM 

Order Desks: (213) 739 1130 

TOLLFREE TOLL-FREE 

(outside Calif.) (within Calif.) 

800 4218045 800 252 2153 



NO ONE UNDERSELLS OLYMPIC SALES 
Write & request our new 112 pg catalog- 
please include SI .00 to defray postage & 
handling-includes many more itemsfrom 
TV's to Watches! 



All goods sub/eel to availability; this ad super 

sedet all previous ads, we are not responsible 

lor typographical errors, we will meet or beat 

any advertised prices it the competition has 

the goods on hand 

Minimum shipping and handling S^ 95. 

All orders subiect to verilication and acceptance. 



tipple 
computer, 



Wt ne in auihoitied semcing Apple dealet loi Applt II & III 
Immediate dttlvt'V on ill models -we eariy in enormous inrento'y 
ol Apple product* it all limes' 

Immediate delivery 



16K-32K-48K-64K-Plu$ or Integer in stock! 




Did 



( . NEW, IMPROVED APPLE III 128K VERSION 

rth cotiiioUer DOS 3.3 ATTENTION: Immediate delivery 

WE ALSO CARRY SOFTWARE* 
Pmona! Sottwwt 
Peach Tree Soft™ 
Microsoft 

Miaopio ^bI^-L' 

Innovative 
American 
System Ptui 



Second Disk Oi 

Pascal-Foilrin-Cobol language* 
Dow Jones & Quore repoiler 
Graphics Tablets 
Viskalclor Apple II & til 
Snwterm 80 column card 
Miciomodem II by OC Hayes 
end more. . - 




HEWLETT PACKARD 

2 NEW DELUXE CALCS FROM HP' 
Slim, shirt-pocket styling 

"M*C Your Cos,: 

S114.95 

Your Cost: 
$129.95 



% 

NEW! 

Advanced Piojnmmabte 
Screntilic LCD Pewi $13000 

NEW! HP-12C 

Advanced Programmable 

Financial LCD Retail Si 50.00 
HP 125 New Mioocompuier 

MK CPU/Terminal/ Keyboard 3750 00 3195.00 

HP-65 Microcomputer-built in primer/monitor 

3250.00 2499.00 
HP-83 Microcomputei-bo.lt.nmomlof 2750 00 1799.00 
HP283IB Pr.nlei.dot mttx (ash loi optns) 3960.00 3199.00 
MP82905A 80 col printer, dot malm 945.00 755.00 

HP 2601 A letter quality prter. daisy wheel 3495.00 

HP 82901M Dual mattei (256KB dish drive) 2500.00 1999.00 
Call us loi the lo west pitces on 7 dish drives Call us Ca ll us 

HP 41 CV New 1 2.2K bytes ol memoiy 
Caid Reader loi 41 CV 
Pimlerlor 41CV 
Quad Ram 

Optical Wand loi 41 CV 
HP 41 C Calculator 
Memoiy mod lor 41 C 
HP 97 Pioo/mble punter 
HP 34C Piooimbte screntilic 
HP 38C Pioarmble business R'E 
We have the complele line ol accessories, etc. 



32500 


256.00 


215.00 


171.00 


385.00 


294.00 


95.00 


8485 


125.00 


99.95 


25000 


188 95 




2695 


150 00 


529 96 


150 00 


11295 


15000 


11995 



XEROX 

Model 8201 I5X") »" $3750.00 

64K COMPUTER & WORD PROCESSOR 

A*! 1 nw A<! Special dtstoum mtfeMl to 

eiQoc nn & ' w ' s "*"""«"» -"w"' 

•9.1333. UU Required toffwt wid "/. 



NEW-FAMOUS CORVUS DISK 0RIVES-5. 10. 20 
MEGABYTES with fantastic new OMNINET NetWorh 
Call us lor the best prices in the USA 1 System 



Texas Instruments 



ita.-i982Mooeiw.iii n<>me Computer 

lull typewriter style heyboaid. 

T199/4A U7L case & more 
(tow KEYBOARD jf" .__ S950 0Q S369.95 

~irnr mm ■ *» 

heyboard 

31995 
314 95 
75 00 



& 369 9 




10" color momior loi 99/4 
32K Exp mem module 
Extended Banc, a MUST 1 
32K module 
Speech sy nthewzei 1 50 00 

We cany a large invenloiy ol sottw*". & 
accessories Vou> Com 

II 30 2 LCSSiu Shde NfcW 

TI3bSPI.cn SCIENTIFIC 

TI40lCOSci/NEW 

Tl 57 Prog Sciemilic 

TI-58C 480 Step. Prog. 

Tl 59 960 Siep. Prog. 

PC 100C Piinl/Ploi 

LCDProgrammer/NEW 




« ■■- » »••>» I Large inventoiy ol penphls. access, etc 

A lAK I Computer * w ,».e» 

400 SPECIAL PRICE 1 16K 595 00 339.95 

No language inc.. opi'l basic. 54.95 

800 I6K Computet 1080 00 759 95 

SPECIAL) 

ATARI 800 48K Computer 1250.00 B69.95 



OHIO SCIENTIFIC 

C8PDF-48KRetail:S3495.00Y/C: $3195.00 

• Oual 8" Drives • 64 col x 32 hne'coloi 

• J MIPS FAST'mMatti mo.eslnd leatuies 

Foitian & Pascal available 
Many other OSl products at discounted prices 



PRINTERS 

• DIABLO denei Duality) Retail You. Cost 
630 l:ifi;"i, i i.ei ■.■ I i/aclois 2965.00 2699 00 
1640K109keyboa.d. tractors 3072 00 2899.95 
630 R0 Receive only 2710.00 2499.95 

1650K136keyboa.d/tiaclois 322000 2999.95 



iCENTRONICSdol mamx . 
700 9 Parallel, heavy duly 1460.00 1199.95 



704 9 Serial, heavy duly 
737 I Pa.allel 
737 3 Serial 
704 11 Paiallel 
P1 Elecliosianc 

• PAPER TIGER 
460 

460G ;uph.c> 

660 

660G graphic* 

MS 

MM 

EPSON PRINTERS 

MX80 

Oolioral Giaftrax Chip 8( 

MX80 FT 

MX60.GRAFTRAX80 

MX80FT*GRAFTRAX 

MX100 



1 795.00 1599 95 

99500 79995 

1045 00 899.95 

1870.00 169500 

495 00 189 95 



99500 


896.00 


1094,00 


969.96 


1295.00 


1099.00 


1394.00 


1195.00 


295.00 


695.00 


894.00 


1H9 00 



746.00 
695.00 
795.00 
995.00 



539.95 
95.00 
659.95 
579 95 
689.95 
789.95 



WE ALSO HAVE . . . 

• NOVATION Modems 

CAT 

CAT 

APPIE CAT Oirecl connect 



Retail Your Cost 
199 95 159.95 
199.95 159.95 
34995 314.96 



SANYO MONITORS High resolution 

13" Colo, (new) high qualnv 550 00 419.95 

1?" Given phoiphoious 360 00 259.95 

12" Slack* who. 340 00 239.95 

IS" Slack* unite 37000 2S9.9S 

9" Slick & white nhe best selleil 735 00 169.95 

AMD EK(Leedex)High Quality Monitors 

100 1Z"8/W. I2MHI 179.00 139 95 

100 G 12" Green. 12 MHi 199 00 174.95 

300 G 12" Green. 18 MHi 249.00 199.95 

Color I 13" Color, NTSCcomp. input. 449.00 339.95 

audio amp & speaker 

Coloi II 13" Color. RBG input, 999.00 699.95 

hi in giaphics, ipeakei 

• HAZEITINE Video Display Te.minals 

• SHUGART Disk Drives 

• DEC VT100& VT103 

Call us lor your DISCOUNTED price TODAY' 



NEW From Tl Series 10 Peisonal Inloimation Te.mrnal Retail 995.00 v <r..> Cost 795.00 
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Otherwise the CALL routine will 
evaluate the address as either a 
numeric literal or variable, or report a 
syntax error. Also, the hex address 
must be four valid ASCII hex 
characters, so remember to pad with 
leading zeros when necessary. Other- 
wise you'll get a syntax error. 

Listing 1 gives some examples of 
valid CALL command formats. 



The PRINT AT Pseudo Keyword 

"PRINT AT" allows you to specify 
exactly where on the screen to print 
any single value, without disturbing 
other areas, and without scrolling the 
screen. This is highly desirable, 
especially in any type of data process- 
ing input procedure, since formatted 
screens are possible. In games you can 
use PRINT AT to maneuver pre-defined 
figures around the screen easily and 
rapidly. Or, coupled with the CALL 
command, an INPUT AT with size op- 
tion can be simulated as in listing 2. 



The format for the PRINT AT com- 
mand is 



#P (L,C) VALUE 



#P is the PRINT AT pseudo keyword, L 
is the line number of the screen (0 to 
31 1, C is the column number (0 to 63), 
and VALUE is the value to print. 

Both L and C may be numeric 
literals, numeric variables, or any valid 
numeric expression, within the speci- 
fied ranges for each. VALUE may be 
any single numeric literal, string 
literal, numeric variable, string vari- 
able or valid numeric or string expres- 
sion. Parentheses must surround the 
line and column specifications, and 
they must be separated by a comma. 
All spaces shown are optional; there 
may be more if desired. 



Listing 2 shows examples of a num- 
ber of valid PRINT AT formats as they 
might appear in a program. 



The Program 

The assembly language program is 
shown in listing 3. I'd like to point out 
that in addition to the PRINT AT and 
CALL discussed here, there is also a 
"CLEAR SCREEN" command (#C) 
available. Also, please note that I have 



Listing 3 (Continued) 


I 


» - «1ED0 








1 

i 


ALTERS THE PARSER TO JUMP TO 






I 


THE 


NEW ROUTINE 






500 1EDO A94C 


1 

ENTRY 


LDA »»4C 


; 'JMP' 




510 1ED2 8SBC 






STA PARSER 






520 1ED4 B5FB 






STA «00FB 


| FOR 'CALL* 




530 1ED6 A9EB 






LDA •STARLO 


| ADDR LO OF NEW RTNE 




540 1EDB B5BD 






STA PAR8ER+1 






550 1EDA A91E 






LDA MSTARHI 


I ADDR HI OF NEW RTNE 




560 1EDC B5BE 






STA PARSER+2 






570 1EDE A9EA 






LDA #»EA 


; 'NOP' 




5B0 1EE0 B5BF 






STA PARSER+3 






590 1EE2 B5C0 






STA PARSER+4 






600 1EE4 B5C1 






STA PARSER+5 






610 1EE6 


i 










620 1EE6 A900 






LDA #«00 






630 1EES B5FA 






STA D.FLAQ 






640 1EEA 


1 










650 1EEA 60 






RTS 


j BACK TO BASIC 




660 1EEB 


1 










670 1EEB 


1 


MAIN 


ROUTINE 






6BO 1EEB 


1 










690 1EEB E6C3 


START 


INC POINTR 


; INCREMENT CODE POINTER 




700 1EED D002 






BNE MAIN. 1 






710 1EEF E6C4 






INC POINTR+1 






720 1EF1 


1 










730 1EF1 A5FA 


MAIN. 1 


LDA D.FLA8 


| EXTENSIONS DISABLED? 




740 1EF3 DOOB 






BNE MAIN.X 


I YES SO SKIP CHECK 




750 1EF5 


i 










760 1EF5 AOOO 






LDY »»00 






770 1EF7 B1C3 






LDA (POINTR), Y 


; OET CHARACTER 




7B0 1EF9 C923 






CMP #'# 


| IS IT A POUND SIGN? 




790 1EFB F003 






BEQ EXTEND 






800 1EFD 


1 










BIO 1EFD 4CC200 


MAIN.X 


J MP QETCUR 


f BACK TO PARSER 




B20 1F00 


i 










830 1F00 


STARHI 


- START/256 






B40 1F0O 


TMP 


■-■ STARHI *256 






B50 1F00 


STARLO 


- START-TMP 






860 IF CO 


1 










870 1F00 


1 


PSEUDO-KEYWORD DECODING 




880 1F0O 


5 










890 1FOO 20BC00 


EXTEND 


JSR PARSER 


| BET NEXT CHAR 




900 1F03 AOOO 






LDY ••OO 






910 1F05 A2FF 






LDX »«FF 






920 1F07 EB 


X. 


LOOP 


I NX 






930 1F0B BD1E1F 






LDA EXTTBL, X 


1 BET PSEUDO-KEYWORD 




940 1F0B FOFO 






BEQ MAIN.X 


; END TBL SO EXIT 




950 1F0D D1C3 






CMP (POINTR), Y 


; CMP TO CHAR IN STMT 




960 1F0F D0F6 






BNE X.LOOP 


| CHECK NEXT KEYWORD 




970 1F11 


; 










9B0 1F11 


i 


FOUND A MATCH 80 SET ADDR 




990 1F11 


! 










1000 1F11 BD261F 






LDA ADRLO, X 


; TRANSFER ADDRESS OF 




1010 1F14 85FC 






STA TEMP2 


; OF KEYWORD RTNE 




1020 1F16 BD221F 






LDA ADRHI, X 


j TO PG ZERO LOCATION 




103O 1F19 B5FD 






STA TEMP2+1 


I FOR JUMP 




1040 1F1B 


; 










1050 1F1B 6CFC00 






JMP (TEMP2) 


GOTO KEYWORD RTNE 




1060 1F1E 


i 










1070 1F1E 


; 


PSUEDO-KEYWORD AND ADDRESS TABLES 




1080 1F1E 


i 










1090 1F1E 


5 


VALID SIN8LE CHAR "KEYWORDS' 




1100 1F1E 


; 


END TABLE WITH NULL 


(*00) 




1110 1F1E 


i 










1120 1F1E 43 


EXTTBL 


.BYTE "CPU",»00 




1120 1F1F 50 












1120 1F20 55 












1120 1F21 00 












1130 1F22 


; 










1140 1F22 


» 


HI8H 


BYTE OF ROUTINE'S ENTRY ADDRESS 




1150 1F22 


i 




END WITH NULL 


(•00) 




1160 1F22 


i 










1170 1F22 IF 


ADRHI 


.BYTE C.HI, P. HI 


,U.HI 




1170 1F23 IF 












1170 1F24 IF 












1180 1F25 00 






.BYTE «00 






1190 1F26 


1 










1200 1F26 


1 


LOW BYTE OF ROUTINE" 


S ADDRESS 




1210 1F26 


1 




END WITH NULL 


(•00) 




1220 1F26 


1 










1230 1F26 2A 


ADRLO 


.BYTE C.LO.P.LO.U.LO 




1230 1F27 43 
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3 (Continued) 












1230 


1F28 


AB 












1240 


1F29 


00 






.BYTE .00 




1250 


1F2A 




1 










1260 


1F2A 




1 


SCREEN CLEAR ROUTINE 


1270 


1F2A 




| 










1280 


1F2A 


A208 


C 


RTNE 


LDX 


**0B 


; # PAGES <»04 FOR C1P) 


1290 


1F2C 


A9D0 






LDA 


#»D0 


; SET POINTER TO START 


1300 


1F2E 


85FD 






STA 


TEMP2+1 


t OF SCREEN 


1310 


1F30 


AOOO 






LDY 


#•00 




1320 


1F32 


B4FC 






STY 


TEMP2 




1330 


1F34 


A920 






LDA 


#•20 


1 SPACE CHARACTER 


1340 


1F36 


91FC 


c 


LOOP 


STA 


(TEMP2) 


Y J BLANK LOC ON SCREEN 


1330 


1F38 


C8 






I NY 






1360 


1F39 


DOFB 






BNE 


C.LOOP 




1370 


1F3B 


E6FD 






INC 


TEMP2+1 




1380 


1F3D 


CA 






DEX 






1390 


1F3E 


D0F6 






BNE 


C.LOOP 


S CHECK IF DONE 


1400 


1F40 




1 










1410 


1F40 


4CBC00 






JMP 


PARSER 


; BACK TO BASIC 


1420 


1F43 




1 










1430 


1F43 




c 


HI 


- 


C.RTNE/256 


1440 


1F43 




TMP 


» 


C.HI*236 


1450 


1F43 




C 


LO 


- 


C.RTNE-TMP 


1460 


1F43 




1 










1470 


1F43 




1 


PRINT AT 


ROUTINE 




14B0 


1F43 




i 










1490 


1F43 


A9D0 


P 


RTNE 


LDA 


#«D0 


i SET UP PTR TO LINE #0 


1500 


1F45 


B5FD 






STA 


TEMP2+1 


| »D000 


1510 


1F47 


A900 






LDA 


#•00 




1520 


1F49 


B5FC 






STA 


TEMP2 




1530 


1F4B 




1 










1540 


1F4B 


20BC00 






JSR 


PARSER 


i GET NEXT CHAR 


1550 


1F4E 


20FEAB 






JSR 


LPAREN 


5 CHECK FOR OPEN PAREN 


1560 


1F51 


20AEB3 






JSR 


EXPR.8 


I GET 8 BIT ARG IN X 


1570 


1F54 


E020 






CPX 


#♦20 


1 CHECK LINE # <-31 


1580 


1F56 


B01B 






BCS 


FN. ERR 


I NO- SO CAUSE FN ERROR 


1590 


1F5B 




1 










1600 


1F5B 


EB 






INX 






1610 


1F59 


CA 


INCLIN 


DEX 




j INCREMENT PTR TO START 


1620 


1F5A 


FOOD 






BED 


SETCOL 


S OF CORRECT LINE 


1630 


1F5C 


18 






CLC 






1640 


1F5D 


A940 






LDA 


#•40 


; LINE SIZE <«20 FOR C1P) 


1650 


1F5F 


65FC 






ADC 


TEMP2 




1660 


1F61 


85FC 






STA 


TEMP2 


i INCREMNT PTR BY ONE LINE 


1670 


1F63 


90F4 






BCC 


INCLIN 




1680 


1F65 


E6FD 






INC 


TEMP2+1 




1690 


1F67 


DOFO 






BNE 


INCLIN 


; FORCED BRANCH 


1700 


1F69 




; 










1710 


1F69 


2001 AC 


GETCOL 


JSR 


COMMA 


i CHECK FOR COMMA 


1720 


1F6C 


20AEB3 






JSR 


EXPR.B 


i GET 8 BIT ARB IN X 


1730 


1F6F 


E040 






CPX 


#•40 


i CHECK COL <-63 <»20 FOR C1P) 


1740 


1F71 


9005 






BCC 


COLOK 


j IT'S OK 


1750 


1F73 




| 










1760 


1F73 


A208 


FN. ERR 


LDX 


#•08 


S FN MESSABE OFFSET 


1770 


1F75 


4C56A2 






JMP 


ERRPRT 


; ERROR PRINTER 


1780 


1F7B 




> 










1790 


1F78 


8A 


COLOK 


TXA 






1800 


1F79 


18 






CLC 






1810 


1F7A 


65FC 






ADC 


TEMP2 


ADD COLUMN TO PTR 


1820 


1F7C 


B5FC 






STA 


TEMP2 




1830 


1F7E 


9002 






BCC 


8ETARB 




1840 


1FB0 


E6FD 






INC 


TEMP2+1 




1850 


1F82 




1 










I860 


1FB2 


20FBAB 


BETARB 


JSR 


RPAREN 


; CHECK FOR CLOSE PAREN 


1870 


1F85 




i 










1BB0 


1F85 




5 


NOW 


3ET VALUE TO 


PRINT 


1890 


1FB5 




1 










1900 


1F85 


20C1AA 


VARNAM 


JSR 


EXPR.2 


; EXPRESSION HANDLER NO TM 


1910 


1F8B 


245F 






BIT 


VARTYP 


; STRINB OR NUMERIC ? 


1920 


1F8A 


3006 






BMI 


STRING 




1930 


1F8C 




1 










1940 


1F8C 


206EB9 


NUMERC 


JSR 


FP.STR 


; CONVERT TO ASCII STRINB 


1950 


1F8F 


20AEB0 






JSR 


SETSTR 


; SCAN AND SETUP STRINB 


1960 


1F92 




> 










1970 


1F92 


20B6B2 


STR1NB 


JSR 


SETPTR 


; SET POINTERS ?< GET LENBTH 


1980 


1F95 


AA 






TAX 




; PUT LENGTH OF STRING IN X 


1990 


1F96 


AOOO 






LDY 


#•00 




2000 


1F98 


E8 






INX 






2010 


1F99 




1 










2020 


1F99 




1 


NOW 


PRINT TO SCREEN 


2030 


1F99 




1 










2040 


1F99 


CA 


PRINT 


DEX 






2050 


1F9A 


FOOC 






BED 


P. EXIT 


; DONE WITH PRINTING 


2060 


1F9C 


B171 






LDA 


(STRPTR 


,Y ; GET CHAR TO PRINT 


2070 


1F9E 


C90D 






CMP 


•»0D 


; IGNORE CARRIAGE RETURNS 


20B0 


1FA0 


F0F7 






BEO 


PRINT 


(Continued) 



made extensive use of existing routines 
in ROM BASIC, especially in the 
PRINT AT routine, and have tried to 
identify their functions in the listing. If 
you want to modify the program for 
other versions of Microsoft BASIC, you 
will need to replace these addresses 
with the corresponding ones for your 
machines. 

Because the program is designed 
with no self-modifying sections, I can 
place it in ROM eventually. To ac- 
complish this, certain page zero loca- 
tions were used. These locations are 
not normally used by OSI ROM BASIC, 
but may be used on other machines. 
The locations used are $E7, and $FA 
through $FF. 

Listing 4 contains a BASIC program 
that will load the extensions into the 
top of any size memory machine. It 
will also configure itself for either CI 
or C2, alter the character parser, and 
set the ENABLE/DISABLE flag to (the 
extensions are ENABLED). In addition, 
it will lower the top of memory, and 
then NEW itself. 



OHIO SCIENTIFIC 

THE WIZARD'S CITY — 

search for gold in the dun- 
geons beneath the Wizard's 
city or in the surrounding 
forest. A dynamic adventure 
allowing progress in strength 
and experience. All OSI — 
cassette $12.95, disk $15.95. 

OSI HARDWARE 15% OFF 
RETAIL PRICES! 

GALACTIC EMPIRE — a strat- 
egy game of interstellar con- 
quest and negotiation. Com- 
pete to discover, conquer, and 
rule an empire with the com- 
puter or 1-2 other players. C4P, 
C8P cassette $12.95, disk 
$15.95. 

AIR TRAFFIC ADVENTURE — 
a real time air traffic simula- 
tion. C4P, C8P disks $15.95. 
Plus S-FORTH, PACKMAN, 
CRAZY BOMBER, ADVEN- 
TURE, TOUCH TYPING, IN- 
TELLIGENT TERMINAL and 
more. Send for our free 
catalog including photos and 
complete descriptions. 
(312) 259-3150 
Aurora Software Associates 
37 S. Mitchell 
Arlington Heights 
Illinois 60005 
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Kiiw -::- sym •::• aim users 

SALES SUPPORT 

HDE DISK SYSTEMS 

NEW' ADC-818-1 6 ANALOG-TO-DIGITAL CONVERTER 
WITH 16 CHANNEL ANALOG INPUTS" 

•XKIM-4 BUS COMPATIBLE 

-"-8- BIT CONVERSION 

#80 USEC CONVERSION 

ttBUILT ON 4-1/9 i 6 CARD 

•"•MUX-OUT AVAIL FOR AN ALOGSIG CONDITIONING 

-"-BUY BUILT AND TESTED OR SAVE SS AND BUY 
KIT 

-"-COMPLETE W/MANUAL AND CIRCUITS 

ADC-818-1 6 IBUILTS TESTED) 8395,00 

ADC-818-1 6KW (KIT W/WIRE WRAP 

SOCKETS] $159 00 

AOC-818-16KS IK IT W/SOLDER 
SOCKETS] $159 00 

SOFTWARE FOR ALL FODS 
BASED SYSTEMS: 

MAIL MANAGER PRICE: $ 49.95 
SOFTWARE FOR HDE BASIC: 

MINI-MONEY MANAGER PRICE: $ 99.95 

MEMO-WRITER PRICE: $ 79.95 

PAYROLL OFFICE PRICE: $349.95 

TAX ADVISOR . . PRICE: $249.95 

CLASS RECORD PRICE: $ 49.95 

STATISTICAL PACKAGE PRICE: $ 24.95 

PLEASE WRITE FOR COMPLETE DESCRIPTION 

MORE SPECIALS: 

•CENTRONICS 739-1 PRINTER REG. $995/ 
NOW $639.95 

•CENTRONICS 704 PRINTER REG. $2495/ 
NOW $1695.00 

•2716-s — 10.9S@/3 FOR 9.95@/10 FOR 8.80® 
DEALER INQUIRIES INVITED 

ADD $3.00 FOR SHIPPING ON ORDERS UNDER 
S100 FREE SHIPPING ON ORDERS OVER S100 
NEW YORK RESIDENTS ADD 7°/o SALES TAX 

lu€ST€RN New YORK MICROCOMPU76R k 
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P BOX 84 

EAST AMHERST. NY 14051 

716/689-7344 



lllll!lllllllllll!lllllltltlllllllMIII«lll!«ffttWHtl 



MICRObits 



Deadline for MICRObits: 20th of sec- 
ond month befoze publication; i.e., 
March 20th for May issue. Send type- 
written copy with $25 per insertion. 
(Subscribers: first ad at $10.) 



COMPendlum 

The only monthly guide to 20 + current 
microcomputer magazines. Every article, 
editorial, hardware/software evaluation 
described. Listed by computer type, 
application. Copiously indexed. 
Subscription includes Annual Reference. 
Helps pinpoint useful information; 
perfect if you can't afford 20 
subscriptions. Sample ($1.50); 
subscription ($18). 

Epicurious 

P.O. Box 129 

Lincolndale, NY 10540 



(Continued on page 92) 



2090 


1FA2 91FC 






STA 


<TEMP2),Y 




; PUT IT ON SCREEN 


2100 


1FA4 CB 






INY 








2110 


1FA5 4C991F 






J MP 


PRINT 




; BACK FOR NEXT CHAR 


2120 


1FA8 


; 












2130 


1FA8 4CC200 


p 


EXIT 


J MP 


8ETCUR 




J EXIT TO BASIC 


2140 


1FAB 


* 












2150 


1FAB 


p 


HI 


m 


P.RTNE/256 




2160 


1FAB 


TMP 


= 


P.HI*256 






2170 


1FAB 


P 


LD 


= 


P.RTNE-TMP 




21B0 


1FAB 


i 












2190 


1FAB 


; 


CALL 


ROUTINE 






2200 


1FAB 


» 












2210 


1FAB 20BC00 


u 


RTNE 


JSR 


PARSER 


f 


QET NEXT CHAR 


2220 


1FAE C924 






CMP 


#'• 


! 


HEX ADDRESS ? 


2230 


1FB0 F014 






BEQ 


HEX ADR 






2240 


1FB2 


; 












2250 


1FB2 20ADAA 


DECADR 


JSR 


EXPR. 1 


1 


16 BIT EXPR - TM CHECK 


2260 


1FB5 2008B4 






JSR 


FIX 


» 


CONVERT FL ACCUM TO FIX 


2270 


1FBB A511 






LDA 


*11 


5 


TRANSFER ADDRESS TO 


2280 


1FBA 85FC 






STA 


TEMP2 


? 


PQ ZERO TEMPORARY LOC 


2290 


1FBC A512 






LDA 


• 12 






2300 


1FBE B5FD 






STA 


TEMP2+1 






2310 


1FC0 20FB00 






JSR 


•OOFB 


1 


DO 'CALL' 


2320 


1FC3 


1 












2330 


1FC3 4CC200 






JMP 


BETCUR 


1 


BACK TO BASIC FOR DECIMAL 


2340 


1FC6 


1 












2350 


1FC6 20D61F 


HEX ADR 


JSR 


HEXIN 




1 QET BYTES H.2-C0NVERT 


2360 


1FC9 B5FD 






STA TEMP2+1 ; 


TO BINARY - PUT IN TEMP HI 


2370 


1FCB 20D61F 






JSR 


HEXIN ; 


SET BYTE 3&4-C0NVERT TO 


2380 


1FCE B5FC 






STA 


TEMP2 ; 


BINARY - PUT IN TEMP LO 


2390 


1FD0 20FB00 






JSR 


•OOFB » 


DO 'CALL' 


2400 


1FD3 4CBCOO 






JMP 


PARSER 


1 


BACK TO BASIC 


2410 


1FD6 


I 












2420 


1FD6 20D91F 


HEXIN 


JSR 


HEXNXT 






2430 


1FD9 20BCOO 


HEXNXT 


JSR 


PARSER 






2440 


1FDC 2093FE 






JSR 


LE8AL 


i 


LEBAL ASCII HEX ? 


2450 


1FDF 300F 






BMI 


SN.ERR 


1 


NO-SO CAUSE SYNTAX ERROR 


2460 


1FE1 


1 












2470 


1FE1 OA 






ASL 


A 


; 


CONVERT TO BINARY 


2480 


1FE2 OA 






ASL 


A 






2490 


1FE3 OA 






ASL 


A 






2500 


1FE4 OA 






ASL 


A 






2510 


1FE5 A004 






LDY 


#•04 






2520 


1FE7 2A 


ROLL IT 


ROL 


A 






2530 


1FE8 26E7 






ROL 


ROLBYT 






2540 


1FEA 88 






DEY 








2550 


1FEB DOFA 






BNE 


ROLL IT 






2560 


1FED A5E7 






LDA 


ROLBYT 






2570 


1FEF 60 






RTS 








2580 


1FF0 


1 












2590 


1FF0 


U. 


HI 


- 


U.RTNE/256 




2600 


1FF0 


TMP 


- 


U.HIS2S6 






2610 


1FF0 


U. 


LO 


■ 


U.RTNE-TMP 




2620 


1FF0 


1 












2630 


1FF0 A202 


SN 


.ERR 


LDX 


#»02 


1 


SN MESSAGE OFFSET 


2640 


1FF2 4C56A2 






JMP 


ERRPRT 


i 


ERROR PRINTER 


2650 


1FF5 


; 












2660 


1FF5 






■ END 









Listing 4 



100 

no 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
2B1 
282 
283 
290 
300 
310 
320 



REM 
REM 



REM 



REM 
REM 



BASIC EXTENSIONS VER 1.3 
AUTO CONFIGURATION C1/C2 S< MEM SIZE 

by MICHAEL M. MAHONEY APRIL 1981 

ADAPTED FROM 'PUT YOUR HOOKS INTO OSI BASIC 
by ED CARLSON IN MICRO »25 



ME-PEEK (133) +256»PEEK ( 1 34 ) : ME-ME-300 

MH-INT (ME/256) : ML=ME-(256*MH) 

POKE 133,ML:P0KE 134, MH: CLEAR: REM LOWER MEM & RESET PTRS 

ME-PEEK (133) +256«PEEK ( 1 34 ) 

FOR 1-1 TO 293 : READ X : POKE ME+I.X : NEXT I 



FOR 1=1 TO 8 : 
YH=INT(Y/256> : 
POKE ME+X.YL : 
POKE ME+X+l.YH 



READ X,Y I Y-Y+ME 

YL=Y-(256*YH) 
IF X=8 THEN X = ll 
: NEXT I 



FOR 1=1 TO 3:READ X: Y=ME+X: YH=INT ( Y/256) : YL=Y- (256*YH) 
POKE ME+B2+I,YH:P0KE ME+B6+I, YLt NEXT I 

T=20lX -PEEK (57088) : IF X<128 THEN 320: REM C2 
POKE ME+92,4:P0KE ME+143, 32: POKE ME+161 , 32: T=5 
MH-INT ( (ME+1) /256) : ML= (ME+1 ) - (256*MH) 



56 



MICRO - The 6502/6809 Journal 



No. 46- March 1982 



Listing 4 (Continued) 



330 POKE 11, ML: POKE 12, MH : X-USR(X) 

340 I 

350 #C : #P(B,T) "BASIC EXTENSIONS VER 1.3" 

360 »P(9,T) " " 

370 »P<12,T)" by Michael M. Mahoney" 

3B0 #P< 15, T) "EXTENSIONS NOW ENABLED" 

390 #P<17,T>" TO DISABLE - POKE 250,1" 

400 #P<19,T>" TO ENABLE - POKE 250,0" 

410 l 

420 END 

430 s 

1010 DATA 169,76, 133, IBB, 133,251, 169,235, 133, 1B9, 169 

1020 DATA 30,133,190,169,234,133,191,133,192,133,193 

1030 DATA169, O, 133, 250, 96, 230, 195, 208, 2, 230, 196 

1040 DATA 165,250,208,8,160,0,177,195,201,35,240 

1050 DATA 3, 76, 194,0, 32, 18B, 0,160, 0,162, 255 

1060 DATA 232, 189,30,31,240,240,209, 195,206,246, 189 

1070 DATA 38,31,133,252,189,34,31,133,253,108,252 

1080 DATA 0,67,80,85,0,31,31,31,0,42,67 

1090 DATA 171,0,162,8,169,208,133,253,160,0,132 

1100 DATA 252,169,32,145,252,200,208,251,230,253,202 

1110 DATA 208,246,76,188,0,169,208,133,253,169,0 

1120 DATA 133,252,32, IBB, O, 32, 254, 171,32, 174,179 

1130 DATA 224,32,176,27,232,202,240,13,24,169,64 

1140 DATA 101,252,133,252,144,244,230,253,208,240,32 

1150 DATA 1,172,32,174,179,224,64,144,5,162,8 

1160 DATA 76,86, 162, 13B, 24, 101,252, 133,252, 144,2 

1170 DATA 230,253,32,251,171,32,193,170,36,95,48 

1180 DATA 6,32,110,185,32,174,176,32,182,178,170 

1190 DATA 160,0,232,202,240,12,177,113,201,13,240 

1200 DATA 247,145,252,200,76,153,31,76,194,0,32 

1210 DATA 188,0,201,36,240,20,32,173,170,32,8 

1220 DATA 180,165,17,133,252,165,18,133,253,32,251 

1230 DATA 0,76,194,0,32,214,31,133,253,32,214 

1240 DATA 31.133.252.32.251.0.76.188.0.32.217 

1250 DATA 31,32, IBB, 0,32, 147,254,48, 15, 10, 10 

1260 DATA 10,10,160,4,42,38,231,136,208,250,165 

1270 DATA 231,96, 162, 2,76, B6, 162 

1280 l 

1290 DATA 8,28,58,79,67,87,72,83,215,202,248,263 

1300 DATA 253,263,264,266 

1310 i 

1320 DATA 91,116,220 JMCRO 



OSI 



OSI 



••FROM THE PRETZELLAND ARCADE- 



HUMANOID 

DEFENDER 



* 




r&* 



AS DEFENDER OP THE HUHANOID COLONIES. 
YOU'VE COT TO STOP THE ALIEN 
LANDERS THAT ARE TRYING TO 
PICK UP AND MUTATE THE 
HUKANOIDS. IP A LANDER 
PICKS UP A HUHANOID. YOU 
HAVE TO BLAST THE LANDER. 
THEN CATCH THE HUHANOID IN 
HID-A1B AND LOWER IT SAFELY TO 
THE GROUND POR A BONUS I EVERY NOW 
AND THEN. A BAITER SHIP APPEARS OUT 
OF HYPERSPACE TO KEEP THINGS 
INTERESTING! WITH COLOR AND LOTS OP 

SOUND! 8K CASSETTE $9.95 

•SPECIFY YOUR SYSTEM!" 




j\_ -ASTRO BLASTER- 

• ASSIGNMENT: CLEAR THE AhEA OF HAZARDOUS 
I J\ '/-»' ASTEROIDS WHICH AiiE DRIFTING IN FROM DEEP 
S/s fv. SPACE. BY BLASTING THEM INTO RUBBLE. BE 
— >, ~T CAREFUL BECAUSE THE LARGE ONES SPLIT INTO 
f\. -<J tVeklW SMALLER ONES WHEN HIT. WHICH FLY OFF 
J 1 / I' ^^IN ALL DIRECTIONS! JUST WHEN YOU THINK 
/ I / ' YOU'VE BLASTED THEM ALL. MORE APPEAR! 
* "ASTRO BLASTEH- by JOHN WILSON IS A "MACHINE CODE" 
OSI VERSION OP ONE OF THE MOST POPULAR ARCADE GAMES OF ALL 
TIMES! THE ACTION IS VERY SMOOTH AND THE ASTEROIDS ARE THE BEST 
LOOKING EVER ON OSI- NO LITH.E CIRCLES HERE! AVAILABLE FOR BOTH 
C1P AND •••CttP"« PLEASE SPECIFY YOUR 
SYSTEM. 8K CASSETTE $9.95 

SEND $1.00 FOR OUR PHOTO- 
ILLUSTRATED CATALOG * GET 
$1.50 CREDIT ON YOUR FIRST 
ORDER! CASSETTES ONLY! 

Pretzolland Software 

2005 D WHITTAKER RD. 
YPSILAIMTI, Ml- 48197 







USERS! 



READ . . . 




The Unofficial OSI Users Journal 



THE WORLD WIDE PUBLICATION 
EXCLUSIVELY DEDICATED TO OSI USERS! 

□ Hardware! Mods. □ Peeks and Pokes □ Bugs and Fixes 

□ Software Exchange □ Software Reviews 

SEND $15.00 FOR 12 ISSUES TO: 

PEEK (65) P.O. BOX 347, OWINGS MILLS, MD 21117 (301) 363-3267 



Maryland Subscribers Add 5% Tax 



Inquire for Foreign Rates 



it 



Now You Have "TIie Choice" 



Reliability, Quality and Performance at a reasonable Price. Systems International, Inc. is pleased 
to offer an alternate to Ohio Scientific microcomputers. Our systems are 100% compatible to OSI 
OS-65D and OS-65U software to preserve your software development investment. Just load your 
present floppies and run; no conversion of software needed or required. Compare the Followina 
Facts and Make "The Choice." 



Ohio Scientific, Incorporated 

Standard Features 

C2-OEM 

48K Memory, 1 MHz 

One Serial Port 

Dual 8" Single Sided Floppies 

Plug in Boards with Many Connections 

120 Volt 60, Hz Operation Only 

90-Day Warranty 

Weight 80 Pounds 

SizeW17" x H9'/ 2 " x D23'/ 2 " 



Extra Cost Items 

Second Serial Port 

Parallel Port 

2 MHz 



Systems International, Incorporated 

Standard Features 

The Choice II 

48K Memory, 2 MHz 

2 Serial Ports, 1 Parallel Port 

Dual 8" D ouble Sided Floppies 

Single Board Construction for Reliability 

120/240 Volt 50/60 Hz Operation 

180-Day Warranty 

Weight 40 Pounds 

Size W12'/2" x H13 1 / 2 " x D16" 

Shippable by UPS in Factory Carton 

Extra Cost Items 



None 



Now Compare tIie Bottom Line \n6 MaIie "TIie Choics" 



Total Retail $4,925.00 * 



Total Retail $4,525.00 
240 Volt 50 Hz Operation add $50.00 



Future plans include the "Choice III" which is 100% compatible to the OSI C2-D 8" Winchester 
System. Also Multi-user Winchester Hard Disk System that is 100% compatible with Ohio Scien- 
tific OS-65U Level 3 Software. 

Rememder — There is "The Choice" to choose a Better system! 

Domestic and International Dealer and Distributor Inquiries are Invited. Discounts to 40% 
* Ohio Scientific Price List June/July 1981 



15920 Luanne Drive 

Gaithersburg, Maryland 20760 

U.S.A. 

Tel. (301) 977-0100 Twx# 710-828-9703 



Jii 



500 Chesham House 

150 Regent Street 

London W1R5.F.A England 

Tel. 01-439-6288 Tlx 261426 



u 



=] 
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GRAPHICS 

FOR OSI COMPUTERS 

it You Can Produce The Images 
Shown Or Yours And Program 
Motion With Our 256 By 256 High J 
Resolution Graphics Kit. *M 

Thats 65,536 Individually Controlled 
Points On Your TV Screen. 

$- Increase Column/Line Display. 

You Can Set Up Your Own Graphic 
Pixels Including Keyboard Characters 
And Unlimited Figures. 

it This Kit Includes All Parts, Software 
And Assembly Instructions Required 
To Get Up And Running. 
The Included 8k Of 21 14 Memory 
Is Automatically Available When 
Not Using The Graphics. 
Boot Up And See 8k More Memory. 

iV Adding The Kit Does Not Affect^ 
Your Existing OSI Graphics. 
Use Both At The Same Time 
Or Separately. 

-& Buy The Entire Kit, 

Including Memory, For $185.00 
Or A Partial Kit For Less If You 
Have Parts. Board And 
Instructions $40.00 . Instructions 
Include Software. 





For This Kit Or A Catalog 

Of Other Kits, Software 

And Manuals Call Or Write: 

MITTENDORF ENGINEERING 

905 Villa Neuva Dr. 

Litchfield Park, Az. 85340 

(602)-935-9734 



OSI 



TRS-80 



COLOR-80 



OSI 



GALAXIAN - 4K - One of the fastest and finest 
arcade games ever written for the OSI, this one 
features rows of hard-hitting evasive dogfighting 
aliens thirstv for Your blood. For those who 
loved {and tired of) Alien Invaders. Specify 
system - A bargain at $9.95 OSI 



LABYRINTH - 8K - This has a display back- 
ground similar to MINOS as the action takes 
place in a realistic maze seen from ground level. 
This is, however, a real time monster hunt as you 
track down and shoot mobile monsters on foot. 
Checking out and testing this one was the most 
fun I've had in years! - $13.95. OSI 



THE AARDVARK JOURNAL 
FOR OSI USERS - This is a bi-monthly 
tutorial journal running only articles about OSI 
systems. Every issue contains programs custom- 
ized for OSI, tutorials on how to use and modify 
the system, and reviews of OSI related products. 
In the last two years we have run articles like 
these I 

1) A tutorial on Machine Code for BASIC 
programmers. 

2) Complete listings of two word processors 
for BASIC IN ROM machines. 

3) Moving the Directory off track 12. 

4) Listings for 20 game programs for the OSI. 

5) How to write high speed BASIC - and 
lots more - 

Vol. 1 (1980) 6 back issues - $9.00 

Vol. 2 (1981) 4 back issues and subscription for 

2 additional issues - $9.00. 

ADVENTURES!!! 

For OSI, TRS-80, and COLOR-80. These 
Adventures are written in BASIC, are full fea- 
tured, fast action, full plotted adventures that 
take 30-50 hours to play. (Adventures are inter- 
active fantasies. It's like reading a book except 
that you are the main character as you give the 
computer commands like "Look in the Coffin" 
and "Light the torch".) 

Adventures require 8K on an OSI and 16K on 
COLOR-80 and TRS-80. They sell for $14.95 
each. 

ESCAPE FROM MARS (by Rodger Olsen) 
This ADVENTURE takes place on the RED 
PLANT. You'll have to explore a Martian city 
and deal with possibly hostile aliens to survive 
this one. A good first adventure. 

PYRAMID (by Rodger Olsen) 
This is our most challenging ADVENTURE. It 
is a treasure hunt in a pyramid full of problems. 
Exciting and tough ! 

TREK ADVENTURE (by Bob Retelle) 
This one takes place aboard a familiar starship. 
The crew has left for good reasons - but they for- 
got to takeyou, and now you are in deep trouble. 

DEATH SHIP (by Rodger Olsen) 
Our first and original ADVENTURE, this one 
takes place aboard a cruise ship - but it ain't the 
Love Boat. 

VAMPIRE CASTLE (by Mike Bassman) 
This is a contest between you and old Drac - 
and it's getting a little dark outside. $14.95 each. 



OSI NEW-NEW-NEW OSI 

TINY COMPILER 

The easy way to speed in your programs. The 
tiny compiler lets you write and debug your pro- 
gram in Basic and then automatically compiles a 
Machine Code version that runs from 50-150 
times faster. The tiny compiler generates relocat- 
able, native, transportable machine code that can 
be run on any 6502 system. 

It does have some limitations. It is memory 
hungry — 8K is the minimum sized system that 
can run the Compiler. It also handles only a 
limited subset of Basic - about 20 keywords in- 
cluding FOR, NEXT, IF THEN. GOSUB. GOTO 
RETURN. END. STOP. USR(X), PEEK, POKE, 
-, H , , /, , S,\ , Variable names A-Z, and Integer 
Numbers frdrn 0-64K. 

TINY COMPILER is written in Basic. It can 
be modified and augmented by the user. It comes 
with a 20 page manual. 
TINY COMPILER - $19.95 on tape or disk OSI 

SUPERDISK II 

This disk contains a new BEX EC* that boots 
up with a numbered directory and which allows 
creation, deletion and renaming of files without 
calling other programs. It also contains a slight 
modification to BASIC to allow 14 character 
file names. 

The disk contains a disk manager that con- 
tains a disk packer, a hex/dec calculator and 
several other utilities. 

It also has a full screen editor (in machine 
code on C2P/C4)) that makes corrections a snap. 
We'll also toss in renumbering and program 
search programs - and sell the whole thing for — 
SUPERDISK II $29.95 (5%") OSI 

BARE BOARDS FOR OSI C1P 
MEMORY BOARDS!!l - for the C1P - and they 
contain parallel ports! 

Aardvarks new memory board supports 8K 
of 2114's and has provision for a PIA to give a 
parallel ports! It sells as a bare board for $29.95. 
When assembled, the board plugs into the expan- 
sion connector on the 600 board. Available now I 

PROM BURNER FOR THE C1P - Burns single 
supply 2716's. Bare board - $24.95. 

MOTHER BOARD - Expand your expansion 
connector from one to five connectors or use it 
to adapt our C1P boards to your C4/8P. - $14.95. 

16K RAM BOARD FOR C1P - This one does 
not have a parallel port, but it does support 16K 
of 21 14's. Bare Board $39.95. 




WORD PROCESSING THE EASY WAY- 
WITH MAXI-PROS 

This is a line-oriented word processor de- 
signed for the office that doesn't want to send 
every new girl out for training in how to type a 
letter. 

It has automatic right and left margin justi- 
fication and lets you vary the width and margins 
during printing. It has automatic pagination and 
automatic page numbering. It will print any text 
single, double or triple spaced and has text cen- 
tering commands. It will make any number of 
multiple copies or chain files together to print an 
entire disk of data at one time. 

MAXI-PROS has both global and line edit 
capability and the polled keyboard versions 
contain a corrected keyboard routine that make 
the OSI keyboard decode as a standard type- 
writer keyboard. 

MAXI-PROS also has sophisticated file 
capabilities. It can access a file for names and 
addresses, stop for inputs, and print form letters. 
It has file merging capabilities so that it can store 
and combine paragraphs and pages in any order. 

Best of all, it is in BASIC (0S65D 51/4" or 
8" disk) so that it can be easily adapted to any 
printer or printing job and so that it can be sold 
for a measly price. 
MAXI-PROS - $39.95. Specify 5'A or 8" disk. 

SUPPORT ROMS FOR BASIC IN ROM MA- 
CHINES - C1S/C2S. This ROM adds line edit 
functions, software selectable scroll windows, 
bell support, choice of OSI or standard keyboard 
routines, two callable screen clears, and software 
support for 32-64 characters per line video. 
Has one character command to switch model 
2 C1P from 24 to 48 character line. When in- 
stalled in C2 or C4 (C2S) requires installation 
of additional chip. C1P requires only a jumper 
change. - $39.95 

C1E/C2E similar to above but with extended 
machine code monitor. - $59.95 OSI 



ARCADE GAMES FOR OSI, COLOR-80 AND 
TRS-80 (8K OSI, 16K TRS-80 AND COLOR-80) 

TIMETREK - A REAL TIME, REAL GRAPHICS 
STARTRECK. See your torpedoes hit and watch 
your instruments work in real time. No more un- 
realistic scrolling displays! $14.95, 

STAR FIGHTER - This one man space war game 
pits you against spacecruisers, battlewagons, and 
one man fighters, you have the view from your 
cockpit window, a real time working instrument 
panel, and your wits. Another real time goody. 
$9.95 

BATTLEFLEET - This grown up version of Bat- 
tleship is the toughest thinking game available on 
OSI or 80 computers. There is no luck involved 
as you seek out the computers hidden fleet. A 
topographical toughie. $9.95 

QUEST - A NEW IDEA IN ADVENTURE 
GAMES! Different from all the others. Quest is 
played on a computer generated mape of Alesia. 
Your job is to gather men and supplies by comb- 
bat, bargaining, exploration of ruins and temples 
and outright banditry. When your force is strong 
enough, you attack the Citadel of Moorlock in a 
life or death battle to the finish. Playable in 2 to 
5 hours, this one is different every time. 
16K COLOR-80 OR TRS-80 ONLY. $14.95 




Please specify system on all orders 

This is only a partial listing of what we have to offer. We offer over 120 games, ROMS, and data sheets for OSI systems 
and many games and utilities for COLOR-80 and TRS-80. Send $1.00 for our catalog. 



OSI 



AARDVARK TECHNICAL SERVICES, LTD. 

2352 S. Commerce, Walled Lake, Ml 48088 

(313)669-3110 



COLOR-80 
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Machine Language 

to DATA Statement 

Generator 



A convenient machine language 
program is presented to convert 
machine language routines to 
BASIC DATA statements. It can 
be applied to all OSI BASIC-in- 
ROM machines. 



Yasuo Morishita 
405 Lively Blvd. 
Elk Grove Village, Illinois 60007 



I find it tiresome to convert hex to 
decimal and to type everything in by 
hand (plus this may produce numerous 
typing errors). It would be convenient 
to have a short program to convert 
machine code routines to BASIC DATA 
statements. So, I wrote the following 
short program to do the work for me. 

The command format is: ?USR(S) 
(E)(L|(I) and "Carriage Return," where: 

S is for the start address of the memory 
block 

E is for the end address of the memory 
block + 1, which you want to con- 
vert to DATA statements 

L is for the start of new line number for 
DATA statements 

I is for the increment of its new line 
number 

? is short for the "PRINT" command 
in OSI BASIC; it can be "PRINT" or 
"Z=" — I have selected "?" 

S, E, L and I should be input in decimal 
value. 

To use this utility, you must: 

1 . RUN this program once after the 
BASIC COLD START, and it will set 
up USR(X) pointers and end-of-free- 
memory pointers. 

2. You can LOAD or type in your own 
programs, if necessary, then type in 
?USR(S|(E)(L)(I) to generate the re- 
quired DATA statements. 



Listing 1 



40 

5# 
60 

7 t 
80 

4 

110 

120 

130 

Xb ,t 
l60 

170 

180 

190 

200 

210 

220 

230 

240 

250 
260 
270 
280 

2 ii 

300 
310 



REM DATA STATEMENT GENERATOR 

REM 

REM VER. 3-0 (SEP.l, 1981) 

REM 

REM BY YASUO MORISHITA 

REM 

REM FORMAT ?USR( START) (END) (NEW LINE #)(INC.) 

REM 

RESTORE: M=?858: REM USR(X) Start address=$lEB2 

H=INT(K/256) :L=M-256*H 

P0KE11,L:P0KE12,H:P0KE133.L:P0KE134,H 

N=l63:FOR X=M TO M*N-1:READ J:P0KE X,J:NEXT 

A=4l629:M=M+N:N=124:GOSUBl60 

A= 1 t-1?56 1 M=M+N:N= 1 *7 :GOSUBl60 

POKE M+15.96:NEW: REM Write "RTS" 

FOR X=0 TO N-1:J=PEEK(A+X):P0KE M+X , J : NEXT ! RETURN 

REM 

REM Machine Language Data ( 163 Bytes) 

REM 

DATA 162,0,134, 253. 32, 58, 31. 32, 55. 31. 224, 8, 208, 249,162 

DATA 6,134,93.169.131.133.19.32,7,31.32,20,31,224,53,176 

DATA 12,169,44,32,48,31,32,1,31,144,239.198,93.32,72,31 

DATA 32, 244, 30, 144, 218, 104, 104, 169, 162, 72, 169, 115. 72, 32 

DATA 149, 179, 76, 119, 164,24,165, 230, 101 ,228,133,228,165 

DATA 231,101.229.133,229,230-224,208,2,230,225,164,224 

DATA 165 , 225 , 72 , 196 , 226 , 229 , 227 , 104 , 76 , 25 , 180 ,32 ,33 ,180 

DATA 32,110,185,32,174,176,32,182,178,133,253,160,1,198 

DATA 253, 24cf, 14, 177, 113. 32, 48 ,31. 200. 208, 244, 166, 93. 14-9 

DATA 14, 230; 93, 96, 32, 173, 170. 32. 8, 180, 166, 253, 1^8, 224 

DATA 232 , 149 , 224 , 232 , 134 , 253 , 96 , 166 , 93 , 160 ,0 , 148 , 14 , 164 

DATA 228,165,229.32,25,180 



Listing 2 



; DATA STATEMENT GENERATOR 

• VER.3-0 ( SEP.l, 1981) 
; BY YASUO MORISHITA 



*=$1EB2 

'DTABF = $E0 

1EB2 A2 00 DSG/5 LDX #0 

1EB4 86 FD STX $FD 

1EB6 20 3A IF JSR GETDTA 

1EB9 20 37 IF LDSG00 JSR GETDTB 
1EBC E0 08 CPX #8 

1EBE D0 F9 BNE LDSG00 

1EC0 A2 06 LDSG02 LDX #6 

1EC2 86 5D STX $5D 

1EC4 A9 83 LDA #$83 

1EC6 85 13 STA $13 

1EC8 20 07 IF JSR ENDDTA 

1ECB 20 14 IF LDSG01 JSR FIXASC 
1ECE E0 35 CPX #$35 . 



sGet data from line 



iExpects 4 data 

;Set input buffer ptr. 

i"DATA" token 

;Get data from memory 
jWrite dec. data in buffer 
sLine length limit 

(Continued) 
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This program can even generate 
DATA statements with line numbers 
smaller than those of the existing 
BASIC program. It will insert the new 
line without any problem. If the new 
line number is same as the existing 
one, it will replace the old one with the 
new one. 

Example: To convert memory block 
$0000 - $0010 with the starting line 
number as 10000 and an increment of 
10, the input command will be: 

?USR(0X17)(1 0000X10) 



The result will be: 

10000 DATA76, 116,162,76,195, 
168,5,174,193,175,76, 
178,30,0,0 

10010 DATA72.56 

Even if you had any program prior 
to the execution of the above com- 
mand, with line number such as 10, 
20000, etc., the above two lines will be 
inserted correctly. 



I have tried to convert 4096 bytes of 
memory into DATA statements with 
my C4P (BASIC-in-ROM) running at 
2MHz system clock. It took about 20 
seconds, produced 262 lines of DATA 
statements, and occupied about 14K 
bytes of memory. (Of course, I had to 
relocate the program to the safe loca- 
tion to do this experiment!) 

Please note that this program uses 
quite a few subroutines out of BASIC 
ROM Version 1.0 Rev 3.2 of Ohio Scien- 
tific. It should work with ROM versions 
of the C4P, C1P, C2-4P and Superboard. 
It uses nine page registers such as $E0 
- $E7 and $FD. If you want to relocate 
the program, change the following sub- 
routine addresses accordingly. 

NAME of subroutines: 
NXTLNO, NXTDTA, ENDDTA, 
FIXASC, WRTLBF, GETDTB, 
GETDTA, INSERT 



It is also necessary to change line 
number 90 in the BASIC program to set 
up M as a new USR(X) start address in 
decimal. 

If you are using a disk-based com- 
puter, or another manufacturer's com- 
puter, you will have to find out which 
register and subroutine will be equiva- 
lent to that used in this program. 

JMCftO 



Listing 2 (Continued) 



1ED0 
1ED2 
1ED4 
1ED? 
1EDA 
1EDC 
1EDE 
1EE1 
1EE4 
1EE4 
1EE6 
1EE7 
1EE8 
1EEA 
1EEB 
1EED 
IEEE 
1EF1 
1EF4 
1EF4 
1EF5 
1EF? 
1EF9 
1EF3 
1EFD 
1EFF 
1F01 
1F03 
1F05 
1F07 
1F09 
1F0B 
1F0C 
1F0E 
IF 10 

1F11 

1F14 
1F14 20 
1F17 
1F17 20 
1F1A 20 
1F1D 20 
IF 20 85 
1F22 A0 
1F24 C6 
1F26 F0 
1F28 Bl 
1F2A 20 
1F2D C8 
1F2E D0 
IF 30 
IF 30 A6 

1F32 95 
1F34 E6 
1F36 60 
1F37 

1F37 20 
1F3A 20 
1F3D A6 
1F3F 94 
IF 41 E8 
1F42 95 
1F44 E8 
1F45 86 
1F47 60 
IF 4-8 
1F48 A6 
1F4A A0 
1F4C 94 
1F4E A4 
IF 50 A5 
1F52 20 

1F55 
1F55 



B0 0C 
A9 2C 
20 30 
20 01 
90 EF 
C6 5D 
20 48 
20 F4 

90 DA 
68 
68 

A9 A2 
48 

A9 73 
48 

20 95 
4c 77 

18 

A5 E6 
65 E4 
85 E4 
A5 E7 
65 E5 
85 E5 
E6 E0 

D0 02 
E6 El 
A4 E0 
A5 El 
48 

C4 E2 
E5 E3 
68 

4C 19 B4 



IF 

IF 



IF NDSG01 
IE 



B3 
(A 



BCS NDSGJ31 
LDA #$2C 
JSR WRTLBF 
JSR NXTDTA 
BCC LDSG01 
DEC $5D 
JSR INSERT 
JSR NXTLNO 

BCC LDSG02 

PLA 

PLA 

LDA #$A2 

PHA 

LDA #$73 

PHA 

JSR $B395 

JMP $A477 

CLC 

LDA DTABF+6 

ADC DTABF+4 

STA DTABF+4 

LDA DTABF+7 

ADC DTABF+5 

STA DTABF+5 
NXTDTA INC DTABF 

BNE ENDDTA 

INC DTABF+1 
ENDDTA LDY DTABF 

LDA DTABF+1 

PHA 

CPY DTABF+2 

SBC DTABF +3 

PLA 

JMP $B419 j Set $11,12 with data ptr. 



I 

NXTLNO 



;Set data ptr for next 



i Insert new line into text 
i Update new line # & test 
; if all data are done. 
(Not yet all done. 
jPrepare to exit to BASIC 

[Trick to JMP back to 

; BASIC warm start ($A274) 



;Reset flag to numeric 
[Reset ptrs & exit to BASIC 

UPDATE NEW LINE # 

jL. increment 

[Li current line # 

|L. next line # 

jH. increment 

iH. current line # 

iH. next line # 
UPDATE DATA PTR. 



Get current data ptr 



21 B4 FIXASC JSR $B421 

6E B9 JSR $B96E 

AE B0 JSR $B0AE 

B6 B2 JSR $B2B6 

FD STA $FD 

01 LDY #1 

FD LFXASC DEC $FD 

0E BEQ RTNWLB 

71 LDA ($71), Y 

30 IF JSR WRTLBF 

INY 
F4 BNE LFXASC 

5D WRTLBF LDX $5D 

0E STA $0E,X 

5D INC $5D 

RTNWLB RTS 

AD AA GETDTB JSR $AAAD 

08 B4 GETDTA JSR 

FD 

E0 



E0 



FD 



5P 



m 

E4 
E5 
19 B4 



LDX $FD 

STY DTABF, X 

INX 

STA DTABF, X 

INX 

STX $FD 

RTS 

INSERT LDX $5D 

LDY #0 

STY $0E,X 

LDY DTABF+4 

LDA DTABF+5 

JSR $B4l9 



WRITE DEC. DATA IN BUFFER 
Get data from memory & 

convert it to floating. 
Floating-->ASCII string 
Scan, set up string. 
Discard unwanted string 
ASCII string length 



[All done! 

[Write dec. ASCII string 

i into input line buffer 

!=JMP 

[WRITE CHR. IN INPUT BUF. 

[Chr. ptr 



[GET DATA FROM LINE 
[Evaluate expression 
[Get value in (Y/A)=(L/H) 
[data counter 
[Save L. data 

[Save H. data 



[INSERT NEW LINE IN TEXT 

[Chr. ptr. 

[Terminate input line 

i buffer 

(Get L. new line # 

[Get H. new line # 

[Set new line § in $11,12 



Follows Insert program copied from BASIC ROM 
End 
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Interesting Software 

OSI •••••••—••••—• presents OSI 



$21.95 




All machine code and fast! Our finest arcade 
game. Where it's you against the mean, 
menacing worm! 



LIGHTNING 



#. 



BOLT 



$29.95 



The most extensive D&D f adventure/fantasy for the 
OSI! You must traverse through the evil land of 
NOD. fighting and killing monsters every step of the 
way! Your goal is to search out a certain treasure 
that will allow you to free the land from the evil Demi 
Gods. Takes up the entire disk and uses full color 
graphics. 



Send to: 

Interesting Software 
15856 Ocean Avenue 
Whittier, CA 906Q4 



Send for our free 
catalog of the finest 
OSI software. 10% 
^f^itln^his^a^^ 



OSI Disk Users 

Double your disk storage capacity 
Without adding disk drives 

Now you can more than double your usable floppy 
disk storage capacity — for a fraction of the cost 
of additional disk drives. Modular Systems' 
DiskDoubler™ is a double-density adapter that 
doubles the storage capacity of each disk track. 
The DiskDoubler plugs directly into an OSI disk 
interface board. No changes to hardware or 
software are required. 

The DiskDoubler increases free user disk space 
from 50K to 120K for mini-floppies, from 201K to 
420K for 8-inch floppies. With the DiskDoubler, 
each drive does the work of two. You can have 
more and larger programs, related files, and disk 
utilities on the same disk — for easier operation 
without constant disk changes. 

Your OSI system is an investment in computing 
power. Get the full value from the disk hardware 
and software that you already own. Just write to 
us, and we'll send you the full story on the 
DiskDoubler, along with th« rest of our growing 
family of OSI-compatible products. 

,M DiskDoubler is a trademark of Modular Systems 

Modular Systems 

P.O. Box 1BA Oradell, NJ 07B49 
201-262-0033 



Z-FORTH IN ROM by Tom Zimmer 

5 to 10 times faster than Basic. Once you use it, you'll never go back to BASIC! $ 75.00 

source listing add $ 20.00 

OSI FIG-FORTH True fig FORTH model for 0S65D with fig editor named files, string $ 45.00 
package & much more 

TINY PASCAL Operates in fig-FORTH, an exceptional value when purchased with forth. 

TINY PASCALS documentation $45.00 

FORTH & TINY PASCAL » 65.00 

SPACE INVADERS 100% machine code for all systems with 64 chr. video. Full color & sound 

on C2.4P& 8P systems. The fastest arcade program available. $ 14.95 

PROGRAMMABLE CHARACTER GENERATOR $ 99 95 

Use OSI's graphics or make a complete set of your own! Easy to use. comes as a kit. $ 84.95 

2 Mhz. boards $109.95 

PROGRAMMABLE SOUND BOARD $ 74.95 
Complete sound system featuring the AY-3-8910 sound chip. Bare boards available. $29.95 

32/64 CHARACTER VIDEO MODIFICATION $ 39.95 
Oldest and most popular video mod. True 32 chr. C1P. or 32/64 chr. C4P video display. 
Also adds many other options. 

ROMS!!! 

Augment Video Mod with our Roms. Full screen editing, print at selectable scroll, disk support and many more 

features. Basic 4 & Monitor J *Mg 

Basic 3 | '8.95 

All 3 for » 59.95 

650 DISASSEMBLY MANUAL, by Software Consultants. First Class throughout. 

A must for any 65D user. s "- 9b 

NUMEROUS BASIC PROGRAMS, UTILITY PROGRAMS AND GAMES ALONG WITH HARDWARE PROJECTS. ALL 
PRICES ARE U S FUNDS. Send lor our $1.50 catalogue with tree program (hardcopy) Memory Map and Auto Load 
Routine. 



WESm 




3336 Avondale Court 

Windsor, Ontario. Canada N9E 1X6 

(519) 969-2600 

3486 Countryside Circle 

Pontiac Township, Michigan 48057 

(313) 3730468 
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NOW TWO LOCATIONS 

SAVE TIME • SAVE SHIPPING 



JR Computers 
ATARI fafMPfc 







800 . s 679 



'TM 
410 Recorder 
810 Disc Drive 
822 Printer 
825 Printer 
830 Modem 
820 Printer 
850 Interlace 
New DOS 2 System 
CX30 Paddle 
CX40 Joy Stick 
CX853 16K RAM 
Microtek I6K RAM 
Microtek 32K RAM 

Ramcram (128K) 

On* year extended warranty , 



$76.00 
$449.00 
$229.00 
$629 00 
$159 00 
$269 00 
$169.00 
$21 00 
$18 00 
$18 00 
$89 00 
$75 00 
$159 00 
$539.00 
. . $50.00 




ATARI 400 

16K.... $329 
32K. . . . $478 
48K. . . . $555 



ATARI SOFTWARE 

CX404 Word Processor $1 19 00 

CX405 PILOT (educational) $105.00 

CX413Microsolt Basic $68 00 

CX4101 Invitation To Programing I $17 00 

CX4102 Kingdom $1300 

CX4103Stalislics $17 00 

CX4 104 Mialmg List $1700 

CX4105 Blackiack $1300 

CX4106 Invitation to Programing 2 $20 00 

CX4107 Biorythm $1300 

CX4108 Hangman $13 00 

CX4109 Graph It $17 00 

CX41I0 Touch Tyoing $20 00 

CX4H2 Stales 4 Capitals $1300 

CX41U European Countries & Capitals $13 00 

CX41 15 Mortgage* Loan Analysis $13 00 

CX4116 Personal Filness Program $59 00 

CX4117 Invilalion To Programing 3 $20 00 

CX4 1 18-20 Conversational Languages lea I $45 00 

CX4121 Energy Czar $'3 00 

CXL4001 Educational Master $21 00 

CX6001 17 Talks Teach Senes tea I $23 00 

CX8106 Bond Analysis $20 00 

CX8107 Stock Analysis $20 00 

CX8101 Stock Charting $20 00 

CXL4002 8asic Computing Language $46 00 

CXL4003 Assempler Editor $46 00 

CXL4004 BaskelbaM $24 00 

CXL4005 Video Easel $24 00 

CXL4006 Super Breakoul $30 00 

CXL4007 Music Composer $45 00 

CXL4008 SPACE INVADERS $3200 

CXL4009 Chess $30 00 

CXL40i0 3DTi C TacToe $24 00 

CLS4011 STAR RAIDERS $39 00 

CXL4012 MISSLE COMMAND $32 00 

CXL4013 ASTEROIDS .... $32 00 

CXL4015 TeteLmk $20 00 

v 'S'calc £*"» 

Letter Perlect (Word Processor] $109.00 

Source "900 

CX481 The Entertainer $75.00 

CX482 The Educator $130.00 

CX483 The Programmer $54.00 

CX 484 The Communicator $329.00 




Texas Instruments 

TI-99/4A $ 359 



PHP 1600 Telephone Coupler $169 00 

PHP 1700 RS 232 Accessories interlace $169 00 

PHP 1800 Disk Drive Controller $239 00 

PHP 1850 Disk Memory Drive. $389 00 

PHP 2200 Memory Expansion (32K RAMI $319.00 

PHA2100RF Modulalor $43 00 

PHP 1 100 Wired Remote ControMers(Pair| $31 00 

32K Expansion $329.00 

PHP Printer Solid State $319.00 

CALL FOR SOFTWARE 
SELECTION AND PRICES 



XEROX 820 

Xerox 820 

System I 5V 4 ." $2450.00 

System II 3 ~ $2950.00 

CPM 5V. " $169.00 

Word Processing $429.00 

Super Calc $269.00 

CALL FOR MORE INFORMATION 




PRINTERS 



Centronics 739-1 $649 00 

Diablo 630 Special $1799.00 

Epson 

MX70 $359 00 

MX80 $469.00 

MX80FT Call 

MX100 Call 

NEC 

8023 $639.00 

7730 Call 

7720 Call 

7710 Call 



Okidata 

82A $499.00 

83A $769.00 

84 $1 129.00 

Citoh Starwtiter 

25 CPS-P $1329.00 

45 CPS-P $1699.00 

Paper Tiger 

445G $699.00 

460G $899.00 

560G $1129.00 

Talley 

8024-7 $1399.00 

8024.L $1629.00 



Terminals 

Televideo 


. . $579.00 








. . $749.00 




. . $939.00 


Call for computers 




Adds 


. . $549.00 


Modems 


. . $239.00 

$169.00 

.. $159.00 

. . . $239.00 


Hayes 



HOW TO ORDER: Phone orders invited or send check or money order and receive free shipping in Ihe continental United Stales. PA and NEV. add sales tax. 

computer mail order west 
800- 648-335I 

IN NEVADA, CALL (702) 588-5654 

P.O. BOX 6689, STATE LINE, NEVADA 89449 



TO SAVE YOU MORE! 

COSTS* SAVE SALES TAX 



s 




HEWLETT 
PACKARD 



HP* 85 s 1999 

60 Column Primer $799.00 

NEW HP- 125 $2999.00 

HP»83 $1699.00 

HP«85 16K Memory Module $249 00 

5't" Dual Master Disc Drive $2129 00 

Graphics Plotter 172256) $2079 00 

NOW IN STOCK! 

The new HP41CV Calculator 
$259 

41 C $1 89.00 

11 C $119.00 

12C $129.00 

34C $117.00 

38C $119.00 

HP-41 Printer $340.00 

Card Reader $164.00 

Optical Wand $99.00 

HPIL CALCULATOR PERIPHERALS 

IL Modual $104.00 

Digital Cassette $449.00 

Printer/Plotter $419.00 

CALL FOR SOFTWARE INFORMATION 



Monitors 



Amdex 12" BSW $149.00 

12" Green $169 00 

13" Color $349 00 

Sanyo 12" B&W $259.00 

12" Green $269.00 

13" Color $449.00 

Tl 10" Color $349.00 



Electronics 



$599 00 



Pioneer Lazer Disk 

BSRX-10 Systems 

PK500 S84.00 

LM501 S'6.00 

AM611 MJ00 

AM286 S'7-00 



(^commodore 



CBM 8032 



$ 1039 




4032 $969.00 

4016 $769.00 

8096 $1569.00 

Super Pet $1599.00 

2031 $529.00 

8050 $1299.00 

4022 $599 00 

4040 $949.00 

8300 (Letter Quality) $1799.00 

8023 $769.00 

Pet to IEEE Cable $37.00 

IEEE lo IEEE Cable $46.00 

Tractor Feed lor 8300 $240.00 

8010 Modem $229.00 



SOFTWARE 

WordPro3 Plus $199.00 

WordPro4 Plus $299.00 

Commodore Tax Package $399 00 

Visicaic $149 00 

BPI General Ledger $329 00 

OZZ Inlormalion System $289 00 

Dow Jones PorHoiio $129 00 

Pascal $239 00 

Legal Time Accounting $449 00 

Word Crall 80 $289 00 

Power $79.00 

Sockel 2 Me $20 00 

Jmsam $Caii 

MAGIS $ Can 

The Manager $209.00 

Soltrom $129 00 

Real Estate Package $799.00 

BPI Inventory Control $319.00 

BPI Job Costing $319.00 

BPI Payroll $319.00 



VIC 20 
$259 

COMPLETE 



aasg s 



Vic 6 Pack Program 
VIC 1530 Commodore Oaiassette 
VIC'1540 Disk Drive 
VIC1515 VIC Graphic Printer 
VIC12103K Memory Expander 
VIC11108K Memory Expander 
VIC1011 HS232C Terminal Interlace 
VIC1 112 VIC IEEE 488 Interlace 
VIC1211 VIC 20 Super Expander 



VIC12I2 Programmers Aid Cartridge 
VIC1213 VICMON Machine Language Moniior 

$44 00 VIC1901 VIC AVENGERS 

$69 00 VIC1904 SUPERSLOT 
$499 00 VIC1906 SUPER ALIEN 
$339.00 VIC1907 SUPER LANDER 

$32 00 VIC1908 DRAW POKER 

$5300 VIC1909 MIDNIGHT ORIVE 

$4300 VT106A Recreation Pack A 

$86 00 VT107A Home Calculation Pack A 

$53 00 VT164 Programmable Character/Gramegraphics 
VT232 VICTerm I Terminal Emulator 



New VIC Software 



Household Finance $27.00 

VIC Games $19.00 

VIC Home Inventory $13.00 

VIC Rec/Ed II $13.00 

I SAM $79.00 

General Ledger $229 00 

Accounts Receivable $229.00 

Inventory $229.00 



Terminal 

Un Word 

Gralix Menagerie . . 

VIC PICS 

Ticker Tape 

Banner Headliner . 
RS232 



$45 00 
$45 00 
$23 00 
$2300 
$19.00 
$23 00 
$23 00 
$23 00 
$44 00 
$44 00 
$12.00 
$9 00 



$13.00 
$13.00 
$11.00 
$15.00 
$13.00 
$13.00 
$39.00 



Above are cash prices, add 3% for Master Card and Visa purchases. 



computer mail order 
800-233-8950 

IN PA. CALL (717) 327-9575 

501 E. THIRD ST., WILLIAMSPORT, PA 17701 




SATURN SYSTEMS 32K RAM BOARD FOR APPLE 

32K of buffered read/write memory on a plug-in card 




Compatible with: Apple ll® . Apple ll +® . Microsoft's Z80 Softcard® , DOS 

3.2. DOS 3.3. INTEGER Basic® . Applesoft® . PASCAL. 
FORTRAN. LISA®. Personal Software's VISICALC® 



Software included: 



1. Relocation of DOS into SATURN 32K board 
(recovers appproximately lOK of main board 
RAM). 

2. Utility package for saving and loading 
Applesoft® and integer® programs and 
data on the 32K ram board; overlaying, 
chaining. 

3. PSEUDO-DISK: Modifies DOS 3.3 to allow use 
of SATURN 32K RAM board(s) like another 
disk drive. 



COMPREHENSIVE DOCUMENTATION • 1 YEAR WARRANTY 

ALL FOR ONLY $239.00 



NEW! 



MEMORY EXPANSION SYSTEM FOR VISICALC® 



Now you can expand the memory available to Personal Software's 16 sector 
VISICALC® using the SATURN 32 K RAM BOARD! 

With VC-EXPAND™ and one or more SATURN 32K RAM BOARDS the 
memory available to VISICALC:® is increased from 18K to: 

50K with 1 SATURN 32K BOARD 
82K with 2 SATURN 32K BOARDS 

VC-EXPAND supplied on 16 sector disk 
ONLY $100.00 



<h 



■S47U&1 



SATURN SYSTEMS. INC. 

P.O. BOX 8050 • ANN ARBOR. Ml 48107 • (313)665-6416 
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Autonumber Plus 
for Cursor Control 



These enhancements to the 
Cursor Control program (MICRO 
36:75) include automatic line 
numbering, PRINT AT, and 
better BASIC access to such 
functions as window setting. 



Kerry Lourash 
1220 North Dennis 
Decatur, Illinois 62522 



This short, machine language utility 
frees C1P owners from the drudgery of 
typing line numbers and doubles as a 
fast line deleter. 

When the Autonumber (AN) pro- 
gram (listing 1) is patched into Cursor 
Control, a number can be called up by 
hitting the LINE FEED key. A number 
will appear on the screen, indented one 
space and followed by a space, just as 
line numbers appear when they are 
LISTed. Only the number is stored in 
the buffer; this lets you use the limited 
buffer length to the fullest. By hitting 
the LINE FEED and RETURN keys al- 
ternately, you can delete lines quickly. 

The counter for the Autonumber is 
located in $F1, F2 (decimal 241 and 
242). It can be set directly with POKEs, 
or zeroed by doing a warm start. The 
counter can also be zeroed by POKEing 
$206 (decimal 518) to zero. 

Autonumber is patched into the 
Cursor Control by setting CC's 
PATCH jump to the starting address of 
Autonumber: 

Change S1E10 ($12) to $22 
S1E11 ($1E) to $02 



The line increment can be altered by 
changing location $024C (decimal 588). 

The AN uses a BASIC-in-ROM sub- 
routine whose normal function is print- 
ing line numbers for the LIST routine 
and EEROR IN XXXX messages. This 
subroutine converts the contents of the 
A and X registers to an ASCII string 
stored in $0100-010C. Next, it prints 
the string on the screen. The space after 
the line number is printed by another 
BASIC-in-ROM routine. 

The AN program can be relocated, 
but $1E10 and$lEll must point to the 
new starting address. If you've re- 
located the Cursor Control program, 
adjust AN's IMP $1E12 accordingly. 

Because of memory space limita- 
tions, I was not able to make the Cur- 
sor Control as modular as I would have 
liked. Several useful routines are im- 
possible to access directly from BASIC. 
Also, I noticed that I seldom used the 
window feature because the windows 
are hard to set. The following routines 
(listing 2) should correct these 
weaknesses. 



First, I designed the USR GO 
routine to make machine language 
subroutines easier to access. This 
routine eliminates the need to POKE 
different USR vectors when multiple 
machine language routines are called in 
a BASIC program. The vector ($11-12) 
only needs to be set once, to the start of 
the USR GO routine. When you call a 
machine language subroutine, type 
X-USR (DDDDD). The D's represent 
the decimal address of the subroutine. 
You can use a number, variable, or 
even an expression inside the paren- 
theses. For example, (2*256 + 6*16 + 4) 
would be accepted. To set USR GO, 
POKE 11,100:POKE12,2. 



USR GO also allows five special 
subroutines to be called with a single 
digit (1-5). USR GO checks the high 
byte of the calling address in the USR 
parentheses before going to that ad- 
dress. If the high byte is zero (address 
less than 255), USR GO selects one of 
the five routines. If the number is not 
1-5, a "function error" message is 
printed. With a little examination of 
the USR GO logic you can add over 200 
of your own often-used subroutines. 
Here's a hint: $B408 returns with the 
low byte of the address in the Y 
register. 

Now that multiple machine 
language routines are easy to access, 
it's possible to tap three useful Cursor 
Control subroutines: 

ESC - Switch windows (1) 
RUB - Erase current window (2) 
HOM - Home cursor (3) 

There is also a PRIN AT function 
that moves the cursor location to any 
address in screen memory: 

PRINAT - Print at (4) 

The command format is X= USR(4) 
offset. The offset should be 1-1000 and 
can be expressed as a number, variable, 
or formula. The offset is added to 
$D000 (upper left corner of the screen) 
and the cursor is moved to that loca- 
tion. A handy way to set cursor loca- 
tion is X= USR|4)A*32 + B. 



To make window setting easier, I 
developed: 

WINSET - Set window boundaries (5) 

The command format is X = 
USR(5)top boundary, bottom boun- 
dary. The boundaries are expressed as 
line numbers: 1 = top to 32 = bottom. 



No. 46 -March 1982 



MICRO - The 6502/6809 Journal 



67 



See figure 2 in the Cursor Control arti- 
cle for a map of the window lines. A 
typical command would be: X = 
USR(5)24,30. This command would set 
the alternate window to the bottom 
quarter of the screen. To use the win- 
dow, call the ESC routine: X = USR(l). 

CLR Subroutine 

Notice that PRINAT uses one 
variable to the right of the USR paren- 
theses, while WINSET uses two. CLR 
allows the use of a command form: X 
= USR(A),B,C for both routines. CLR 
finds the end of the statement, either 
colon or null, and sets the parser 
pointer ($C3,C4) past the end of the 
line. Otherwise, BASIC would print an 
error message. 

After trying out the Autonumber 
Plus, you may wish to relocate it to 
leave the block of RAM at $0222 free. 
Cursor control could be moved down 
one or two pages and the AN relocated 
to the top of memory. Cursor Control 
will protect them from being overwrit- 
ten. Warmstart vector $0001 and $0002 
would have to be adjusted, of course. 

Once again, I invite persons inter- 
ested in CC or BASIC-in-ROM to drop 
me a line. I would particularly like to 
compliment the OSI Users Group- 
Northwest on their ROM BASIC mem- 
ory map. Also, I thank A. Penaloza for 
his article in the August issue of 
PEEK(65) that made it possible to adapt 
the Cursor Control to C2P/C4P 
computers. 







Listing 1 






iAUTONUHBER 


FOR CC 






C0UNTL=$F1 








C0UNTH=*F2 








FLAC 


= $206 






1 


=$222 




0222 C90A 


AUT0NM 


CMP 


**A 


JLINE FEED KEY? 


0224 D03B 




BNE 


QUIT 


>N0> BACK TO CC 


0226 A900 




LBA 


*0 




0228 AE0602 




LDX 


FLAG 


iFLAG=0 ? 


022B D004 




BNE 


ZERO 


>N0. DON'T 


022D B5F1 




STA 


COUNT L 


.RESET COUNTER 


022F 35F2 




STA 


COUNT H 




0231 BD0602 


ZERO 


STA 


FLAG 




0234 A6F1 




LDX 


COUNTL 




0236 A5F2 




LDA 


COUNTH 




0238 205EB9 




JSR 


»B95E 


SPRINT LINE * 


023B 20E0A3 




JSR 


*A8E0 


i PR I NT SPACE 


023E A2FF 




LDX 


*$FF 




0240 E8 


LOOP 


INX 






0241 BD0101 




LDA 


S101.X 


.GET DIGIT 


0244 F004 




BEQ 


INCRMT 


.BRANCH IF NULL 


0246 9513 




STA 


J13.X 


JBlGIl IN BUFFER 


0248 D0F6 




BNE 


LOOP 




024A 


i 








024A 18 


INCRMT 


CLC 




i INCREMENT COUNTER 


024B A905 




LDA 


tb 




024D 65F1 




ADC 


COUNT L 




024F 85F1 




STA 


COUNTL 




0251 9002 




BCC 


DONE 




0253 E6F2 




INC 


COUNIH 




0255 8E0602 


DONE 


STX 


FLAG 


.SET FLAG 


0258 68 




PLA 


i 


PULL BUFFER INDEX ( X I 


0259 AB 




TAY 


i 


FROM STACK AND REPLACE 


025A 68 




FLA 


i 


WITH DIGIT COUNT 


025B BA 




TXA 






025C 48 




PHA 






025D 98 




TYA 






025E 48 




PHA 






025F A901 




LDA 


#i 


.NON-PRINTING CHAR 


0261 4C121E 


QUIT 


JMP 


$1E12 


SBACK TO CC 




o 



<V 



&v. 






CSE MEANS OSI 

Custom OSI Software For C1P and C4P 



BASIC ENHANCER i Renumberer, 
Autosequencer, Screen Control 
functions, and a tape I/O system 
that is faster and has filenames 
too. C1P & C^P $21.95 



AUTOLOADER PLUSi Why waste time and 
effort with a sloppy machine code 
tape generation program? This one 
will give the results you need with 
ease. C1P II versions come with a 
video mod. C1P & C^P $10.95 

SEND $1.00 FOR CATALOG TOi 

Computer Science Engineering 
Box 50 291 Huntington Ave. 
Boston, MA 02115 





MICRO-PROCESSOR i Word Processing 
system for the C1P II. Now do 
reports, letters and other documents 
that need that professional touch to 
them. Coded in machine code for maximum 
efficiency and minimum hassle. For C1P 
II only $44.95 

OSI/MICROSOFT ROM LISTINGi Jammed packed 
with imformation and limited comments. 
See how your machine ticks. This should 
be the machine coder's BIBLE. Includes a 
major subroutine list with descriptions 
100+ pages $12.95 
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Listing 2 






!BAS 


C ACCESS TO 






.CURSOR CONTROL 






CURS0R=»EO 








ALTUIN=*E6 








F'ATCH=$1E0F 






ESCAF'E=*1E5C 






H0ME=$1E72 






RUB0UT=$1E80 






PCURSR=$1F14 






PRINT 


=»1F1F 






1 


=$0264 




0264 20O8B4 


USRGO 


JSR 


*B408 


.CONVERT TO 2-BYTE Noi 


0267 C900 




CMP 


*0 


ilS HI BYTE=0? 


0269 F01O 




BEQ 


ESC 


JYES. TO CC SUBS 


026B 6C1100 




JMP 


($0011 ) 


(JUMP TO ADDRESS 


026E 


r 








026E 201AA7 


CLR 


JSR 


$A71A 


.FIND END OF LINE 


0271 C8 




INY 




.PLUS 1 


0272 98 




TYA 






0273 18 




CLC 




! UPDATE PARSER POINTER 


0274 65C3 




ADC 


$C3 




0276 9002 




BCC 


CL1 




0278 E6C4 




INC 


$C4 




027A 60 


CL1 


RTS 






027B 


r 








027B 88 


ESC 


DEY 




.SWITCH UINDOUS 


027C D005 




BNE 


RUB 




027E 48 




PHA 






027F 48 




PHA 






0280 4C601E 




JMP 


ESCAPE+4 


0283 


} 








0283 88 


RUB 


DEY 




■CLEAR UINDOU 


0284 D005 




BNE 


HOM 




0286 48 




PHA 






0287 48 




PHA 






0288 4C841E 




JMP 


RUBOUT+4 


028B 


r 








028B 88 


HOM 


DEY 




.HOME CURSOR 


028C D005 




BNE 


PRINAT 




028E 48 




PHA 






028F 48 




FHA 






0290 4C6F1E 




JMP 


HOME-3 




0293 


f 








0293 88 


PRINAT 


DEY 




.PRINT AT 


0294 DO 16 




BNE 


UINSET 




0296 20 IF IF 




JSR 


PRINT 


jERASE CURSOR 


0299 20C1AA 




JSR 


$AAC1 


J GET OFFSET 


029C 200SB4 




JSR 


$B408 


! CONVERT TO 2-BYTE No. 


029F 84 EO 




STY 


CURSOR 


.ADD OFFSET TO $DOOO 


02A1 18 




CLC 






02A2 69D0 




ADC 


#$D0 




02A4 85E1 




STA 


CURSOR+1 




02A6 20 14 IF 




JSR 


PCURSR 


i PRINT CURSOR 


02A9 4C6E02 




JMP 


CLR 


(GOTO END OF LINE 


02AC 


! 








02AC 88 


UINSEl 


DEY 




JSET ALT. UINDOU 


02AD BO 3 2 




BNE 


ERR 




02AF 20C302 




JSR 


UINGET+,"' 


(GET START OF UINDOU 


02B2 20D502 




JSR 


STOR 


.STORE IT 


02B5 20C002 




JSR 


UINGET 


.GET END OF WINDOW 


02B8 A202 




LDX 


12 




02BA 20D502 




JSR 


STOR 


.STORE IT 


02BB 4C6E02 




JMP 


CLR 


.TO END OF LINE 


02C0 


r 








02C0 2001AC 


UINGET 


JSR 


$AC01 


(FIND COMMA ELSE ERROR 


02C3 20C1AA 




JSR 


$AAL1 


(GET VALUE 


02C6 2005AE 




JSR 


$AE05 


(CONVERT TO 2-BYTE # 


02C9 C6AI- 




DEC 


$AF 


(MINUS 1 


02CB A205 




LDX 


#5 »*6 FOR 2K CONVERSIONS 


02CB 06AF 


Ul 


ASL 


♦AF 


(MULTIPLY BY 32 


02CF 26AE 




ROL 


$AE 




02D1 CA 




DEX 






02D2 D0F9 




BNE 


Ul 




02D4 60 




RTS 






02D5 


F 








02D5 A5AF 


BTOR 


lDA 


$AF 


(STORE UINDOU VALUES 


02D7 95E6 




SI A 


ALTUIN.X 




02D9 18 




CLC 






02DA A9B0 




LDA 


#*D0 




02DC 65AE 




ADC 


$AE 




02IIE 95E7 




STA 


ALTUIN+1 


.X 


02EO 60 




RTS 






02E1 4C88AE 


ERR 


JMP 


$At.88 


(FUNCTION CALL ERR 

JSJCftO 



APPLE 





PARALLEL PRINTER CARD 

A Universal Centronics type parade 
pnnier board complete with cable and 
connector This unique board allows 
you to turn on and off the high bit SO 
thai you can access additional features 
tn many printers Use with EPSON 
ANADEX. STARWRITER. NEC. OKI. 
and other with standard Centronics 
configuration $''j9 00 



DOUBLE DOS Plus 



« 




DOUBLE OOS Plus- a piggyback > 

board mat plugs into the 

disk controller card so that you 

can switch select between 

DOS 3.2 and DOS 3 3 

Nothing needs to be soldered, just plug in and go Since all tour ROMS are 
used, all software will work, the ROMS til on the back ot the board 
allowing lull use o' slot 17 One set ot ROMS is powered up at a lime 

DOUBLE OOS Plus -WHines APPLE DOS ROMS 



$39.00 



201 - 839-3478 ^j„ 




/(GAIN i Ahead of all others 






""""ED USER UMMl 
TRACWSECTOREOITOR 

DISK DIAGNOSTICS 



IISBLES EMM II 



Ml ULli 



IfHOV 



... . 



f M 



P *°«»«* 



M00 *<C4 r| 



lr '0* 
FAST & MORE ACCURATE 



JSSSIiSmSS Be m *" e ava "» nl * lo •>" «->'"e' versions itwouafi 
COMPUTER appl.cal-ons l„. , m oGes i cha.ge ot Ten 
£oila.-> io cove. manual. O.skeile. ami Pnsiaac A M UI1C 
include NAME .,,,d SERIAL * ol ORIGINAL 




NIBBLES AWAY II. second edition, is a greyly enhanced anil tm 
Droved version ol .....< earlier product NIBBLES AWAY Many new ana 
exerting features nave been implemented m NIBBLES AWAY II lo in 
sure Slate ol ihe An ruiMDiltly 

Older similar systems on Ihe market today (regardless ol pncei can't 
Oegm to compare *ilh ail Ihe leaiuresbuill into NIBBLES AWAY II 



ONLY 



$ 69 



Dealer Inquiries Invited. B 




Fast Machine Language. 3D Hires 
Animation Arcade game with sound. 
Look oui ot vour turret and irv to 
blast the enemy tanks and saucers 

3D Animation adds to the effects and use ot the game paddles or joystick give you 
command ol your tank ONLY $29.95 



3D Robot Tank 



ooooooooooooooooooooooooeoooooooooooooooooooooooo 

Super PIX HIRES SCREEN DUMP 

The Software package that will allow your printer to dump page 1 or page 2 of the 
Apple Hires screen horizontally or vertically- Use with EPSON 1 " MX-80 with oi 
withoul GRAFTRAX- Roms, MX-70 OKI'*Microline 80. 82. 83. 82A, 83A 
C ITOH" 8510 and NEC. Requires Tymac Parallel Printer ; Board 




MICRO-WARE DIST. INC. 



P.O. BOX 113 
POMPTOR PLAINS, N.I. 
07444 
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PROGRAMMING THE APPLE II 
JUST GOT EASIER! 



A 
N 
I 
X 







L 

a 
z 
e 
r 



P 

a 
s 
c 
a 



is a "Tiny-UNIX™" that is completely file structure upwards 

DOS 3.3. ANIX incorporates a healthy subset of UNIX'S™ 

id a superset of CP/M's capabilities. In addition to the ANIX 



A UNIX-like DOS 3.3 Compatible Operating System for the Apple II 

ANIX 1.0 
compatible with 
capabilities an 

operating system, Lazer" provides over 30 utility programs on the ANIX disk. 
Included are: ADU (ANIX disk utility), DUPDSK, EXPUNGE, DREN, STAT, TYPE, 
PUTDOS, FREE2, UNDEL, MAKE, SIZE, MON, NOMON, WC (word count), LC (line 
count), PIE. PATCH, PRINT, BUILD, FIND, BTOT (binary to text conversion), INIT, 
MAKEAUTO, PAG3, ED, COPY, SETCLK, SETPRTR, SETLOWER, SETINVMODE, TIME, and 
more! Many of the programs found on the ANIX disk are selling alone for 
between $30 and $60. Also included are the source listings for several of the 
utilties. For advanced machine language programmers, the source listing of 
the entire operating system is available separately. ANIX supports powerful 
sere 
to 
capabilities, call or write Lazer. 

ANIX is the start of a complete line of system software tools available 
from Lazer Microsystems, Inc. All new languages and applications programs 
available from Lazer will run under the ANIX operating system. Lazer Pascal 
is available now. Other languages and systems are in the works. Productive 
programmers are already using ANIX, are you? 



reen editing commands and will automatically time and date. stamp files save 
disk (if a clock card is installed). For a complete description of ANIX 1 



i 



The Elegance of Pascal — The Power of "C" 



Lazer Pascal is a unique systems programming language for the Apple II. 
It combines features found in Pascal and is extended to include several 
features found in the "C" programming language. The Lazer Pascal compiler is 
very fast (1500-2000 lines/minute) making the system very easy to use. No 
longer will the systems programmer or game programmer be forced to use 
assembly language, Lazer Pascal is here! 

Lazer Pascal supports BYTE, CHAR, BOOLEAN, INTEGER, LONG, pointer, string, 
array, static, and dynamic data types. Lazer Pascal was created to replace 
6502 machine language as the choice of systems and game programmers. Included 
with Lazer Pascal are several sample programs demonstrating the use of Lazer 
Pascal including: ANIX.P, TSTPARMS.P, LINECOUNT.P, W0RDC0UNT.P, CHARCNT.P, 
EXPAND. P, COMPRESS. P, CRYPT. P, and TRANSLIT.P. Better yet, the source 
listings for the compiler, P-code interpreter, and other utilities are 
included. 



> 



D 

A 
S 
M 



A High-Powered 6502 Disassembler for the Apple II 

DISASM/65 produces a 6502 assembly language source listing from machine 
code and a set of input commands. Oniy DISASM/65 supports all the commonly 
used data types found in machine language programs. We used DISASM/65 to 
disassemble DOS 3.3 for our popular DOSOURCE 3.3 product — that should 
describe DISASM/65 's power! DISASM/65 is provided with our popular LISA V2.5 
assembler. Several users, however, have reported considerable success using 
DISASM/65 with the Toolkit assembler, the SC Assembler, TED, and others; so we 
are offering DISASM/65 separately for these users. 



p-SOURCE 



The Internals of the Apple P-code Interpreter Explained 



p-SOURCE is a technical manual that describes the internal operation of 

the Apple Pascal P-code interpreter. Included are descriptions of programming 

• or techniques used within the interpreter, hints on how to speed up the 

Apple Pascal interpreter, add. your own routines to it, and incorporate hardware floating 

users point. p-SOURCE is absolutely essential to the Pascal program m er. , 



ANIX, Lazer Pascal, p-SOURCE and DISASM/65 were all written by Randy Hyde, 
the author of "USING 6502 ASSEMBLY LANGUAGE", LISA, SPEED/ASM, DOSOURCE 3.3, 
and other fine software products. Additional information on Lazer s software 
products can be obtained by calling or writing Lazer Microsystems , Inc. 



Lazer Software Products: 

ANIX: $49.95 

LAZER PASCAL: $39.95 

DISASM/65: $29.95 

p-SOURCE (book): $19.95 

UNIX™ Bell Labs. 

CP/M™ Digital Research, Inc. 



Other Fine Lazer Products: 

Lower Case +Plus II : $29.95 

Lower Case +Plus : $64.95 

Keyboard +Plus : $99.95 

Character Set +Plus : $24.95 



APPLE II™ Apple Computer, Inc. 
ANIX™ Lazer Microsystems, Inc. 




1791-G Capital 
Corona, CA 91720/ 
(714)735-1041 
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The Single Life 



By Brad Rinehart 



Two years ago, Hudson Digital Elec- 
tronics Inc. (HDE] decided to add an 
improved BASIC interpreter to their ex- 
panding line of development software. I 
was able to witness the creation of this 
interpreter, HDE Disk BASIC. Here's 
the inside story. 

HDE designed their BASIC primarily 
for demanding industrial users, such as 
General Electric. Therefore, a compre- 
hensive, sophisticated package was a 
necessity. However, since many hobby- 
ists, businessmen, and professionals 
use HDE products, the new BASIC also 
had to be easy-to-use. 

HDE wisely chose Microsoft's pop- 
ular BASIC as the foundation for its 
new Disk BASIC. In the beginning 
there were the standard reserved words: 
PRINT, INPUT, TAN, POKE, etc., and 
only a few, very limited, disk com- 
mands. Today there are 127 reserved 
words, three types of disk files, and 
several library functions. Quite a piece 
of software! 

HDE Disk BASIC is compatible 
with the AIM, SYM, and KIM disk 
systems. Customized versions are 
available by special request. I'll discuss 
only the KIM-based version here (the 
other versions are similar). 

I want to start by describing some of 
HDE Disk BASIC'S more outstanding 
features. In the KIM-based version, 
HDE Disk BASIC resides in memory 
from $2000 to $5000 and also uses 
memory from $E000 to SECFF. In a 
56K system, this leaves approximately 
36,600 bytes of user memory! Room for 
plenty of code here. 

HDE Disk BASIC is very user- 
friendly. For example, it relieves the 
user of the burden of manipulating the 
machine through PEEKs and POKEs. 
Instead, HDE Disk BASIC provides 
such handy features as 'ERN' and 
'ERL', reserved words that return the 
'ERror Number' and 'ERror Line' when 
an error occurs. The programmer can 
call this feature via an 'ON ERROR 
GOTO' instruction. 



The following example demon- 
strates the use of ERL and ERN to deter- 
mine that an OUT OF DATA error oc- 
curred during the READing of the data 
statements into the string variables. 

10 ON ERROR GOTO 100 
20 READ A$, B$, C$ 
30 DATA THESE, ARE, STRINGS 
40 END 
100 IF ERN = 4 AND ERL = 

20 THEN RESTORE: RESUME 
110 PRINT "ERROR NUMBER"; 
ERN; "OCCURRED IN LINE"; 
ERLSTOP 

Note that the use of ERL allows you to 
clarify not only the type of error, but 
also in which line it occurred. 

HDE Disk BASIC also provides you 
with a line editor similar to the one 
found in HDE's TED (TExt eDitor). 
This feature alone will save many 
hours of program development time on 
the screen. 

The editor functions include: 

APP allows you to append or add 
statements or comments to the end of 
one or more lines. 

AUTO provides automatic line 
numbering. You may specify the line 
number to start with, as well as the line 
increment value (1-10). 

COPY lets you copy one line to one 
or more new or existing lines. If the 
target line (the one being copied to) 
already exists, the entire line will be 
replaced with the source line. 

DEL deletes from line to line. You 
may also specify DEL REM which will 
delete all the REM or remark state- 
ments from the program and leave the 
rest of the program untouched. 

EDIT in HDE Disk BASIC is almost 
identical to the EOT statement in TED. 
By specifying the line to edit, (i.e. 
EDIT 200), you may insert, delete, or 
modify characters within the line. 

FIND lets you find or locate reserved 
words or statements within the program. 



MOVE is similar to COPY, except 
that the source line is removed from 
the text. For example, MOVE 100 200 
will cause line 100 to be removed from 
the text and placed at line 200. 

RENUM provides for renumbering 
of the program. It automatically adjusts 
all GOTO and GOSUB references to 
renumbered lines. You may specify the 
line to start with, the line number in- 
crement value, the number to assign to 
the first line, and the last line to 
renumber. This is an extremely useful 
function. 

SET allows you to change a group of 
characters or words anywhere it occurs 
within the program. BASIC'S SET com- 
mand will display the line before making 
the change. You then have the ability 
to invoke the automatic change, or 
abort the change in individual lines or 
string occurrences. 



You will appreciate these powerful 
edit functions. Instead of having to list 
programs or search for a particular 
statement, you can execute the FIND 
command and BASIC will display all 
lines containing the requested state- 
ment. And if you've ever spent hours 
removing the remark statements from 
the runtime version of a program, 
you'll especially appreciate the DEL 
REM function. 

When comparing one machine with 
another, keep in mind that HDE's edit 
functions are an integral part of the in- 
terpreter, not an add-on package or one 
that must be 'hooked' or 'linked' into 
the interpreter by the user. When you 
buy the software, you get the editor! 

Modular or single board systems 
allow you to interface more than one 
type of terminal to the system. This 
ability provides a great deal of flexibility 
for the system designer, but it also 
presents interesting problems to the 
software engineer. For example, many 
terminals recognize the escape (ESC) 
character as a 'lead in' character for 
control sequences (clear screen, posi- 
tion cursor, etc.). Still others may use 
control characters, such as 'control X' 
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or 'control A' to invoke special func- 
tions, like self test. Another problem 
arises when a teletype is used as the ter- 
minal. Most teletypes only provide for 
a 72-character line, while CRT displays 
allow a minimum of 80 characters. 



HDE Disk BASIC recognizes several 
characters which are used for specific 
functions. The escape (ESC) character 
is used to insert characters within a 
line when editing. Control X is used as 
a cancel character for several com- 
mands. To avoid conflicts, a personality 
module allows you to change the char- 
acters that are recognized for back- 
space, back-arrow, escape, control X, 
and control A. The personality module 
also allows you to define the line width 
and the character sequence transmitted 
for 'CLS' or clear screen. 



In addition to interfacing BASIC to 
the system terminal, the personality 
module may be used to keep you out of 
trouble. For example, program develop- 
ment generally dictates that some 
means of stopping the program and/or 
looking at memory locations must exist. 
However, when the program is purchased 
by end users, they do not want the pro- 
gram to stop, and they do not care what 
is in which memory location. There- 
fore, we need a way to keep both sides 
of the industry happy. HDE's per- 
sonality module satisfies this require- 
ment. The normal functions, such as 
escape, control X, control A, etc., may 
be used while you develop the soft- 
ware. Then, after the package is com- 
plete, the personality module may be 
used to eliminate these functions. The 
process is simple: just 'tell' BASIC to 
recognize $FF for these functions. Since 
no terminal transmits this hex se- 
quence, the functions are ignored. 



If you have not yet ventured beyond 
the realms of the personal computer, 
you may need an explanation of the 
library function. Many years ago some- 
one decided that there must be a way to 
invoke common routines from more 
than one program. Therefore, a method 
was devised to provide shared routines, 
similar to the way in which people 
share books from a public library. 
When you want it, you go get it. When 
you're through with it, someone else 
may use it. The only requirement is 
that the book or routine must be in the 
library when you need it. In the case of 
a disk-based library, the routine is read 
from the disk when needed, but it is 
never erased or removed. 



This library allows you to expand 
the capabilities of the interpreter 
without expanding the size of the inter- 
preter in memory. Currently, there are 
several useful routines that may be in- 
cluded in the library. I should mention 
that the user is required to pay a 
nominal fee for these routines as they 
are not part of the standard package. A 
sampling of the HDE Disk BASIC 
library routines follows: 



DUP lets you duplicate a data disk. 
DUP copies the entire disk using the 
FREE area in BASIC as a large disk buffer. 

IMP prints a cross-reference of all 
referenced line numbers and the lines 
that reference them. For example, in 
the statement 100 GOSUB 1000, line 
1000 is the referenced line, 100 is the 
line that refers to it. 

VAR provides a cross reference of all 
variables and the lines in which they 
are used. 

MAP displays the current memory 
map defining the area used for program 
storage, array storage, simple variables, 
disk file buffers, strings, and the free (or 
FRE) area. 

A unique feature of the library is the 
means by which routines are called 
from it. For example, to implement the 
'VAR' routine, you only need to enter 
LIB "VAR". Hence, virtually any 
routine may be added to the library and 
invoked through the 'LIB' command. 
This means that user routines may be 
called directly from the library, saving 
an entry into the disk index! The 
library is currently limited to fifty sec- 
tors, which is about 6400 bytes. How- 
ever, it may be expanded if necessary. 



When you boot up your HDE disk 
system, control is passed to the File 
Oriented Disk System (FODS). From 
FODS, you enter the command 'BAS' 
and BASIC is loaded from the system 
disk (usually drive 1 or 0) and initial- 
ized. The following phrase appears on 
the screen: 



MEMORY SIZE? 



You have three options. If a carriage 
return only is entered, BASIC deter- 
mines the amount of available memory. 
If you do not wish to allow BASIC to 
use all of memory, you enter the 
decimal value of the highest location to 
be allocated to BASIC, followed by a 



(RETURN). If you want to allocate 
memory above $CFFF for something 
other than BASIC, you enter 53247 
(RETURN) to the MEMORY SIZE? 
question. If this is the first time BASIC 
is run, you may want to enter a 'P' 
followed by (RETURN). This invokes 
the personality module. 



There is one more method for in- 
voking BASIC. Even though little has 
been written about FODS, it does pro- 
vide for an 'auto start' function. This 
function may be used to implement 
BASIC, or any other program from the 
system disk. First the command word, 
such as BAS, must be written into 
FODS. Then either the boot strap 
routine must be changed to jump four 
locations higher into FODS, or the first 
three locations in FODS must be 
changed to NOPs (SEA). I find it easier 
to load FODS, change the first three 
locations, and save it back to a blank 
disk. This disk is then used for all auto 
start functions. 

The command word used to invoke 
the called program is written into 
FODS beginning 38 ($26) locations 
from the beginning. FODS will 
recognize the first three characters as a 
command. The command word must 
be terminated by a carriage return 
(SOD). When invoking BASIC, if the se- 
quence 'BAS. $0D' is used, BASIC will 
then look for a program '©MENU' on 
the system drive and execute it. 

This auto start function allows a 
user, as opposed to a programmer, the 
ability to use pre-packaged software. 



Next month I will explain the 
reserved words and their uses. Those of 
you who are interested in bringing HDE 
Disk BASIC up on your machine may 
want to contact one of HDE's factory 
representatives about obtaining a copy 
of the package. 



Please address all correspondence to the 
author at 1508 Stanton Street, York, 
Pennsylvania 17404. 
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APPLE • ALTOS • ATARI • MAXELL • DYSAN • EPSON • CCS • SHARP • CASIO • HP • VERBATIM • MEMOREX • SOROC • CORVUS • ADDS 



■ CALTOS 8CS 8000-15 -wooo 4450.00 1540.00 



£ I SHARP -64KZ80 FULL KBDYX-3200 CALL 
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BUSINESS WORLD INC. 
Information Line (213) 996-2252 
TOLL FREE MAIL ORDER LINES 
(800) 423-5886 outside Cam. 



COMPUTERS 

«Mcipp*c computer 



Apple II-16K 
Apple II-32K 
Apple II-48K 
Apple II-64K 
Apple III 128-K 



List 

SI 330.00 

1430.00 

1530.00 

1725.00 

3915.00 



Our 
Price SAVE 

S999.00 $331.00 

SPECIAL I 

CALL J 

2997.00 91B.00 



i 



NEC PC 8001 



105000 245.00 



i 



ATARI PERSONAL 

COMPUTERS 

400 16K Bytes ol Rom 
800 16K Bytes ol Rom 
410 Progtom Recorder 
810 Disk Drive 
825 Printer (80 col- 

Cenlronlc 737) 
820 Printer (40 col 

impact) 
830 Acoustic Moaem 
850 Interface Module 
Atari Vlsicolc 
Atari 400-16K 



Lilt 

595 00 

$1080.00 

90.00 

600 00 

999.95 

450 00 
200 00 
220 00 
200.00 
595 00 



Our 

Price 

337.45 

739.00 

77.00 

457 00 



« 



SAVE 

257.05 

332.00 

13.00 

143.00 



769.00 230.00 



353.00 
155.00 
192.00 
164.00 
327.00 



97.00 
45.00 
48.00 
36.00 
304.00 



Lilt 



Our 

Price 



SAVE 



3750 00 2990.00 760.00 



2475.00 
1777 00 



255.00 
2075.00 



3250.00 
125.00 

1125.00 

5500.00 
167800 



775.00 
473 00 



40.00 
375.00 



700.00 
25.00 

195.00 

1350.00 
374.00 



s> 



I tat HEWLETT 
"HM PACKARD 

MP-125 MlC'OCtxnputei 

HP-85 Microcomputer 3250.00 

HP-83 Microcomputer 2250.00 
16K Exo-Memory 

Module 295.00 

Graphics Plotter 7225 2450.00 
Personal ity Mod 

tor 7225 75000 

2631Blmpactiprinter/ 

hw df* 3950.00 

Option 020 tor 2631B 150 00 

8 Drives to choose from 
82902S 1300.00 

9895A 8" Dual Drive 6850.00 

Graphics Tablet 9111 A 2050 00 
HP41 CV New 2.2 

bytes mem 325.00 

HP-41-C Calculator 250.00 

Card Reader tor 

41CV'C 215.00 

Printer 'or 41CVi'C 385 00 

Optical Wand lor 

41 CVfC 125.00 

Quod Ram equals 

4 Mem. Mods 95 00 

Memory Modules to* 

41C 
HP-97 Piogramble 

Printer 75000 

HP-67 Programbie 

Calculator 375.00 

HP-34C Programbie 

Scientlllc 150.00 

HP-38C Programbie 

Bus. RjE 150.00 

HP-32E Adv Scientific 55.00 

HP-37E Business Mgmt. 75.00 

We carry a large inventory ol Libraries, accessories and 
supplies. 



250.00 
185.00 


75.00 
65.00 


162.00 
289.00 


53.00 

101 00 


97 00 


2800 


81.00 


14.00 


25.00 


* 


595.00 


175.00 


29500 


80.00 


117.00 


33.00 


117.00 
48.00 
57.00 


33.00 

7 00 
18.00 



PRINTERS 



EPSON Lisl 

MX 80 Ft 745.00 

MX 80 IMPACT 645.00 

MX 70 IMPACT 500 00 

MX 100 99500 

APPLE SII.ENTYPE 64500 

ANADEX 9501 165000 

NEC 

5510 3195.00 

5515 3295.00 

3510 2495.00 

3515 2545.00 
OKIDATA 

MCROLINE 80 545.00 

MCROUNE 82 64900 

MCROLINE 83 1050.00 
PAPER TIGER 

445G with Graphics 795.00 

460G with Graphics 1.394.00 

S60G New lull size 1.695.00 
DIABLO (LETTER QUALITY) 
630 R102 Di-airectional 

tractors 2.965.00 
1640K109 Keyboard 

tractors 4.000.00 

630 RO Receive Only 2.710.00 
1650K 136 keyboard 

tractors 4.000.00 



Our Price 
549.00 
450.00 
390.00 
765.00 
299.00 
1299.00 

2445 00 

2545 00 
1795.00 
1849.00 

395.00 
549.00 
769.00 

695.00 

899 00 

1.139.00 



SAVE 

19600 
195.00 
110.00 
230.00 
346.00 
351.00 

750.00 
750.00 
700.00 
696.00 

150.00 
100.00 
281.00 

100.00 

495.00 
556.00 



SPECIAL OF THE MONTH 

APPLE II PLUS 
48K W/16K 
EXPANSION BOARD 



R =o=64K 



Our price 
$119900 




List price S1780.00 
Our price SI 199.00 

Save $581.00 



APPLE II STUDENT__= 
SYSTEM 



• Apple II Plus Sy.ttm-«8K RAM 

• Disk II Floppy Disk & 
Interface (DOS 3.3) 

• 12 "Grn. Phs. Video Monitor 



5- 



> 





MONITORS 



NEC Grn. Phs. 12" S285 OC 

BMC Gieen Phs. 12" 275.00 

Zenith 12" 159.00 

SANYO MONITORS 

High Resolution. Number 1 seller 



Our 
Price 
239.99 

229.00 
119.00 



SAVE 

$46.00 
46.00 
30.00 



Our 
List Price SAVE 



13" Color (new] 

high quality S550.00 
12' Green Phospho'ous 360.00 

12" Black & While 340 00 

15" Black & While 370.00 

9" Black 8> White 

The Best Seller) 235 00 



388 00 
240.00 
217.00 
235 00 



145.00 



$16200 
120.00 
123.00 
135.00 



90.00 



DISKETTES 

SOLD IN BOXES OF 10 

(Min. Purchase) 
BIT $100 of (he 
b'ollowine. Diskettes 
DYSAN 

104.1 5" SOFT SECTOR 
104i1D = ■ D8L. 

DEN SOFT SEC 
3740.1 8" SOFT SECTOR 
374010 8" OBI 

DEN -SOFT SECTOR 

MAXELL 

MD-1 5" SOFT SEC- 
TOR' DBL DEN 

MD-2 = " SOFT 

SECTORDBl SIDEiDBl 
DEN 

FD-1 8" SOFT SEC DBL 
DEN 

FD-2 8' SOFT SSC..D8L 
SIDEDBL DEN. 



Lilt 
PRICE 

600 

6.40 
7.25 

10.75 



500 



700 
6 50 




SAVE 
PER DISKETTE 

399 S 2.01 



460 
4.75 



4.00 



160 
2.S0 



1.00 



850 



490 2.10 

450 2.00 

595 2.55 



TERMINALS 



TELEVIDEO 

910 
912C 
920C 
950C 



List 

699.00 

950.00 

995.00 

1,195.00 



Our 
Price 
599.00 
699.00 
795.00 
949.00 



SAVE 

100.00 
251.00 
200.00 
246.00 



r 




^flHp 






SOFTWARE 


<S9 






FOR APPLE II 




Our 








Lisl 


Price 


SAVE 




Apple Fortran S 


200.00 ! 


147.00 * 


S3.00 




DOS 3 3 (16 Sector) 


60.00 


45.00 


15.00 




Apple PILOT (16 Sector] 


150.00 


119.00 


31.00 




Apple FORTRAN 










[requires A2B0006) 










(16 Sector) 


20000 


159.00 


41.00 




Language System with 
Apple Pascal 










495.00 


399 00 


9600 




BPi General Ledger 










System 


395.00 


319.00 


76.00 




8Pt inventory Package 


395.00 


319.00 


76.00 




Visidex 


200.00 


159.00 


41.00 




Vtscaic 


200 00 


159 00 


41.00 




Desktop Pton ii 


200 00 


159.00 


41.00 




Microlab Database 










System 


150 00 


119.00 


11.00 




Stoneware DB Master 


229 00 


189.00 


40.00 




Muse Supertext H 


150 00 


119 00 


31.00 




Softape Magic Window 


99 00 


72.00 


27.00 






















TEXAS INSTRUMENTS 




Tl 99/4A Console New 










Improved 


950 00 


385.95 


564.05 




10" Cotor Monitor High 










Resolution 


37495 


317.95 


57.00 




32K Memory Module 


399 95 


312.95 


•7.00 




Speed Synthesizer 


149.95 


127.95 


22.00 




Disk Memory Drive 


499 95 


390.95 


109.00 




RF Modulator 


49 95 


42.50 


7.45 




Telephone Coupler 










(Modem) 


22495 


185.95 


19.00 




Winter [Solid State) 


399 95 


31595 


■4.00 












MODEMS 










NOVATION CAT MODEM 


18995 


140 00 


4».t5 




NOVATION DCAT 


199.00 


150 00 


49.00 




NOVATON APPLE -CAT 


349.00 


31000 


39.00 




HAVES MCROMODEM 


379.00 


295 00 


(4.00 




HAYFS SMARTMODEM 


279.00 


239 00 


40.00 












CALCULATORS 








CASK) 










HR-10 


4995 


39 00 


10.95 




HR-12 


54.95 


42 00 


12.95 




FR-100 


79.95 


59.00 


20.95 




FR-1210 


129 96 


99.00 


30.95 




PQ-20 


29.95 


23.00 


6.96 




IC-785 


12.95 


10.00 


2.95 




LC-3165 


12.95 


10.00 


295 




FX-68 Scienlilic 


29 95 


23 00 


6.95 




FX-81 Scienlilic 


19 95 


1700 


2.95 




FX-3600P Scienlilic 


39 95 


2995 


1000 




FX-602P "Computer 










Talk 88 Memories Pro- 










gramming Upper & 










Lower Cose Dot Matrix 


129.95 


99.00 


30.95 




FX-702P Solves Problems 










wilh Alpha-Numeric 










Clarity, uses Basic 










Language 


199.95 


15900 


40.95 





DRIVES 



CORVUS 

5 MBVTES 
10 MBVTES 
20 MBVTES 



3.750.00 3.050.00 700.00 
5.35000 4,449.00 901.00 
6.45000 6,45000 1.125.00 



TELE. ANSW. DEVICES 



PHONE MATE 

900 

905 Remote 

910 

920 

925 Remote 

930 Remote 

950 Remote 

960 Remote 



119 95 
199.95 
159.95 
199 95 
239 95 
299.95 
339 95 
399.95 



86.00 
144.00 
115.00 
144.00 
173.00 
216.00 
245.00 
288 00 



33.95 
JS.95 

44.95 
55.95 
66.95 
(3.95 
94.95 
111.95 







A/1ICRO BUSINESS WORLD wj MKKtl lAt 

P" "i^i'" - '• frSTtS WAREHOUSE 

i • " s.i'j.' [Onl 18720 Oxnard. »I08 Tarzana. CA 913S6 

OUTSIDE CA CALL TOLL FREE 1 (800| 423-5886 IN CA (2131 996-2252 



AVISOS 

m\i< I 
UK rios 

yrisi k ;/o\ 



Certified Check or M.O 
Bank Wire Transfer 



Cash/Credit CardfAllow 2 
weeks clearance lor checks) 



We reservelhe rTgririo"c'o''r"eciTvp'o'g ~pTi 



ical errors. Tnis ad supercedes all previous ads 



MAXELL • DYSAN • EPSON • CCS -SHARP • CASIO • HP • VERBATIM • MEMOREX • SOROC • CORVUS • PERSONAL SOFTWARE • CCS 
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HAVE WE 
GOT A PROGRAM 

FOR YOU IN'82 

Over 150,000 computer owners and novices attended the 1981 
National Computer Shows and Office Equipment Expositions, 
and more than a quarter of a million are expected to be at the 
1982 shows. 
Each show features hundreds of companies using thousands 
of square feet of display space to showcase and sell millions of dollars 
worth of micro and mini computers, data and word processing equipment, 
peripherals, accessories, supplies and software. 

Under one roof you'll see — and be able to buy — all of the hardware 
and software made by every major computer manufacturer for busi- 
ness, industry, government, education, home and personal use. 
The show includes computers costing as little as $100 to com- 
puters selling for $150,000. 

Don't miss the coming of the new computers — show up for 
the show. Admission is $5 per person and $3 for children. 



Ticket Information 

Send $5 witn the name of Ihe show you 
plan io attend to National Computet 
Shows. 824 Boylston Street. Chestnut 
Hill, Mass 02167 Tickets car, also be 
purchased ai the show 

TliE 
MID'flTiJiNTiC 



SOU sH^EST 

CiSfiSsS 

Dallas 
Dallas Market Hall 

Thursday-Sunday 

April 15-18, 1982 

11 AM to 6 PM Daily 

DIRECTIONS 

2200 STEMMONS FREEWAY 

(AT INDUSTRIAL BLVDI 



re.ot ViJriH 



Uniondale, Long Island 
Nassau Coliseum 

Thursday-Sunday 

April 22-25, 1982 

11 AM to 6 PM Daily 

DIRECTIONS: TAKE L.I. EXPWY 

TO EXIT 38 NO STATE PKWY 

TO EXIT 31A MEADOWBROOK 

PKWY SO TO EXIT M5 

HEMPSTEAD TURNPIKE 



shU¥= 

Minneapolis 
Minn. Auditorium 
& Convention Hall 

Third Avenue 

Thursday-Sunday 

September 16-19, 1982 

11 AM to 6 PM Daily 

DIRECTIONS HWY94I0 
1tth St Exit to Third Ave 



Washington, DC 
DC Armory /Starplex 

Across from RFK Stadium 
Thursday-Sunday 
October 28-31, 1982 
11 AM to 6 PM Daily 

DIRECTIONS 

2001 E CAPITOL ST SE 

(E CAPITOL ST EXIT OFF 1-295 

— KENILWORTH FRWY) 






Chicago 

(Arlington Heights) 

Arlington Park Racetrack 

Exhibition Center 

Thursday-Sunday 

November 5-7, 1982 

11 AM to 6 PM Daily 

DIRECTIONS: EUCLID AVE & 

WILKE RD. TAKE NW TOLLWAY 

TO RTE 53 EXIT AT 

EUCLID AVE EAST 



NOFTHfcfiST 
CONFUTES 

SHOH 

Boston 
Hynes Auditorium/ 
Prudential Center 

Thursday-Sunday 

November 11-14, 1982 

11 AM to 6 PM Daily 

DIRECTIONS: TAKE MASS 

PIKE TO PRUDENTIAL 

CENTER EXIT 



" COMPU I Eii 



Atlanta 
Atlanta Civic Center 



Thursday-Sunday 
December 9-12, 1982 
11 AM to 6 PM Daily 

DIRECTIONS. 

395 PIEDMONT AVE NE 

(AT RALPH McGILL BLVD) 



The National Computer Shows are produced by Northeast Expositions Inc. who also produce Electronica — shows featuring home entertainment equipment and personal 
electronics — which are held annually in major US cities. NEI also produces the Applefesl Shows. For more information about any ot these events call us at 617-739-2000 
or write to the above address. 
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A feast 
of computing ideas. 



If you work with a 6502/6809-based 
system, you're probably hungry tor the 
facts and ideas that will help you 
understand the inner workings of your 
computer. You want to go beyond 
canned software — use your computer 
for more than games — learn the 
advanced programming techniques 
that enable you to get the most out of 
your 6502/6809 system. 

MICRO, The 6502/6809 Journal, 
gives you page after page, month after 
month, of solid information to sink 
your teeth into. MICRO is the premier 
how-to magazine for serious users of 
the Apple, PET/CBM, OSI, Atari, AIM, 
SYM, KIM, and all 6809 based systems 
including the TRS-80 Color Computer. 
It's a resource journal internationally 
respected by professionals in business, 
industry, and education. Every issue of 
MICRO keeps you informed with up-to- 
the-minute data on new products 
and publications: 

• hardware catalog with organized, 
concise description 

• software catalog in an easy-to- 
use format 

• new publications listed and 
annotated 

• reviews and evaluations of sig- 
nificant products 

And there's much more: 

• In-depth hardware tutorials 
bring expert advice into your home or 
office. 

• Detailed discussions of pro- 
gramming languages deepen and 
broaden your programming ability. 

• Complete program listings 
enable you to increase your machine's 
capabilities. 

• Bibliography of 6502/6809 
information helps you to find pertinent 
articles in a timely manner. 

• Special monthly features with 
in-depth treatment of one subject or 



OCTOBER 1981 



/AlCftO 

THE 6502/6809 JO URNAL 




Special PET/VIC Feature 



A Look at the TRS-90 Color Computer 

Step Up to PronrAmmiitilo Motion 
A to D Converter* toe Your Comput e r 



You'll love 
every byte. 



YES! I want to get more from 
my microcomputer. Please send me 

year(s) of MICRO at S . /year. 
(Outside U.S. and Canada, please 
indicate via □ surface or □ air mail.) 



Company 



Sueel 



C'-v 



Slate Zip Code 



□ Check enclosed for $ 
D Charge my credit card account 
□ VISA □ MasterCard 



Signature 

Card r rml ei 



Expiration dale 



system increase your knowledge of the 
field. 

• Balanced mix of machine- 
specific and general articles foryour 
everyday use as well as long-range 
reference needs. 

• Informative advertising 
focused specifically on 6502/6809 
machines keeps you abreast of latest 
developments. 

• Reader feedback puts you in 
touch with other micro-computerists. 

MICRO is the magazine you need to 
get the most from you,- own 6502/6809 
system! 

To order, send your check or interna- 
tional money order (payable to MICRO) 
and the order form at left, to: 

Subscription Fulfillment 

MICRO, Dept. Ml 

34 Chelmsford Street 

P.O. Box 6502 

Chelmsford, MA 01824 

Or, for your convenience, call our 
toll-free number: 

1 -800-227-1 61 7, Ext. 564 

(In California, 800-772-3545, Ext. 564) 
and charge your subscription to your 
MasterCard or VISA. (All orders must be 
prepaid in U.S. dollars or charged to 
your MasterCard or VISA.) 

SUBSCRIPTION RATES (U.S. dollars) 
Yearly subscription (ISSN 027-9002) 
saves 20% off the single-issue price. 
U.S. $24* 
Canada $27 

Europe $27 ($42 by air mail) 
Mexico, Central America, Mideast, 
North and Central Africa $27 ($48 air) 
South America, Far East. South Africa, 
Australasia $27 ($72 air) 
♦SPECIAL OFFER— U.S. ONLY: 
Save even more— 30% off single-issue 
price: 2 years, $42 
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BOX 120 

ALLAMUCHY, N.J. 07820 

201-362-6574 



HUDSON DIGITAL ELECTRONICS INC. 



THE TASK* MASTERS 



HDE supports the *TIM, AIM, SYM and KIM (TASK) with a growing line of computer programs and 
peripheral components. All HDE component boards are state-of-the-art AVi" x 6 1 /2", with on board 
regulation of all required voltages, fully compatible with the KIM-4 bus. 



OMNI DISK 65/8 and 65/5 

Single and dual drive 8" and 5 1 A" disk systems. 
Complete, ready to plug in, bootstrap and run. 
Include HDE's proprietary operating system, 
FODS (File Oriented Disk System). 



HDE DISK BASIC 

A full range disk BASIC for KIM based systems. 
Includes PRINT USING, IF . . . THEN . . . ELSE. 
Sequential and random file access and much 
more. $175.00 



DM816-M8A 

An 8K static RAM board tested for a minimum of 
100 hours and warranted for a full 6 months. 



HDE ADVANCED INTERACTIVE 
DISASSEMBLER (AID) 

Two pass disassembler assigns labels and con- 
structs source files for any object program. 
Saves multiple files to disk. TIM, AIM, SYM, KIM 
versions. $95.00 



DM816-UB1 

A prototyping card with on-board 5V regulator 
and address selection. You add the application. 



HDE ASSEMBLER 

Advanced, two pass assembler with standard 
mnemonics. KIM, TIM, SYM and KIM cassette 
versions. $75.00 ($80.00 cassette) 



DM81 6-P8 

A 4/8K EPROM card for 2708 or 271 6 circuits. 
On board regulation of all required voltages. 
Supplied without EPROMS. 



DM816-CC15 

A 15 position motherboard mounted in a 19" 
RETMA standard card cage, with power supply. 
KIM, AIM and SYM versions. 



DISK PROGRAM LIBRARY 

Offers exchange of user contributed routines 
and programs for HDE Disk Systems. Contact 
Progressive Computer Software, Inc. for details. 



HDE TEXT OUTPUT PROCESSING SYSTEM 
(TOPS) 

A comprehensive text processor with over 30 
commands to format and output letters, docu- 
ments, manuscripts. KIM, TIM and KIM cassette 
versions. $135.00 ($142.50 cassette) 

HDE DYNAMIC DEBUGGING TOOL (DDT) 

Built in assembler/disassembler with program 
controlled single step and dynamic breakpoint 
entry/deletion. TIM, AIM, SYM, KIM AND KIM 
cassette versions. $65.00 ($68.50 cassette) 

HDE COMPREHENSIVE MEMORY TEST 
(CMT) 

Eight separate diagnostic routines for both 
static and dynamic memory. TIM, AIM, SYM, 
KIM and KIM cassette versions. $65.00 ($68.50 
cassette) 



AVAILABLE DIRECT OR FROM THESE FINE DEALERS: 



Progressive Computer Software 
405 Corbin Road 
York, PA 1 7403 
(717)845-4954 



Johnson computers 

Box 523 

Medina. Ohio 44256 

(216)725-4560 



Lux Associates 
20 Sunland Drive 
Chico, CA 95926 

(916)343-5033 



Falk-Baker Associates 

382 Franklin Avenue 

Nutley, NJ07110 

(201)661-2430 

Laboratory Microcomputer Consultants 

P.O. Box 84 

East Amherst, NY 14051 

(716)689-7344 



Perry Peripherals 

P.O. Box 924 

Miller Place, NY 11 764 

(516)744-6462 
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KIM Bouncy Keypad Cure 



This 94-byte program eliminates 
the annoying keybounce and 
prolongs the life of your bouncy 
KIM-1 keypad. It can be used 
alone or as part of Jim 
Butterfield's BROWSE routine. 



Jody Nelis 

132 Autumn Drive 

Trafford, Pennsylvania 15085 



My KIM has a lot of miles on it. As it 
aged, the keybounce appeared and 
became progressively worse. After a 
frustrating attempt at repairing the 
keypad myself, I gave in and bought a 
replacement. 

While this should have been the end 
of the story, it was not. Just as the 
original had developed a bounce, so did 
the replacement. The thought of buying 
a new keypad every year discouraged 
me, and I sought a solution. 

A study of the KIM-1 schematic 
diagram eliminated the idea of putting 
capacitors across the contacts to de- 
bounce them. A multiplexed, scanned 
keypad that is shared with the LED 
display does not lend itself to a hard- 
ware fix. 

The Cure 

When I found that hardware wasn't 
practical, I turned to software. An 
analysis of the KIM-1 monitor listing 
led me to the source of the problem and 
suggested the cure. 

Remember that KIM stands for Key- 
board Input Monitor. Upon power up 
and after a little internal housekeeping, 
control is given to a routine in the 
ROM which does just that. It con- 
tinually scans the keypad, patiently 
waiting for a key to be pushed. In its 
spare time, it keeps the LED display up- 
dated to reflect the latest input. 



Unfortunately, this monitor routine 
does not have enough ability to dif- 
ferentiate between two separate and 
distinct keystrokes and one keystroke 
that bounced. The input routine is ex- 
ceptionally fast. It will respond to your 
keystroke and update the display before 
the key you are pushing hits bottom. 

Before this routine goes on to look 
for the next keystroke, it does a test to 
see if the key is still down. If it feels 
that it is still down, the routine just 
loops right there and continues to test 
until it decides that the key has been 
released. Then after a little additional 
internal housekeeping, it looks for the 
next keystroke. 

A bouncing key is making and 
breaking contact. If it breaks contact 
long enough (only a few milliseconds), 
the test thinks that the original key has 
been released and a new one has been 
pushed. Thus, we can get a double (or 
triple] entry with just one keystroke. 
Some additional delay in the input 
routine is required. 

Program Overview 

Presented here is my mini-monitor 
called "KIM-1 Bounceless Data 
Entry." BOUNCELESS responds to all 
of the hex keys as well as the "AD," 
"DA," and " + " keys in the same 
fashion as the KIM monitor. It also 
adds the one feature missing in the KIM 
monitor. It includes an adjustable timed 
delay which is initiated when each key- 
stroke is first detected. During this 
delay time, anything happening at the 
keypad is totally ignored. This effec- 
tively debounces even the worst of 
keypads. 

BOUNCELESS is 94 bytes long. It 
fits nicely into the RAM area in page 
17, but it is totally relocatable. You 
may put it in any other RAM location 
that suits you. Listing 1 is a com- 
mented disassembly listing of BOUNCE- 
LESS. Once you have played with it and 



set the delay to an interval that suits 
your finger and keypad condition, you 
can put it in EPROM if you wish. 

While BOUNCELESS by itself is 
fine for short programs or data entry, 
anything over a few dozen bytes is best 
done using BROWSE. BROWSE is also 
a mini monitor utility that can be 
found in The First Book of KIM. 
Among other things, it can be used to 
aid in entering data or programs. 

BROWSE has a debouncing scheme 
of sorts already written in it. While I 
have found it to be less susceptible to 
bounce than the KIM monitor, it is not 
adequate when the keypad deteriorates 
beyond a certain point. 

Since I experienced keybounce 
using BROWSE, I modified it to include 
the time delay, thus making it bounce- 
less also. I call my modified version 
DEBOUNCED BROWSE. It is 16 bytes 
longer than the original version, and re- 
mains totally relocatable. 

Listing 2 is a hex dump of DE- 
BOUNCED BROWSE produced by KIM. 
The commented disassembly of listing 
3 shows only the modified portion. 

Detailed Description 

The KIM monitor is about IK long. 
Fortunately not all of it is really the 
"Keyboard Input Monitor." In fact, 
most of it supports the TTY and 
cassette interfaces on the KIM-1 board. 

BOUNCELESS duplicates only 
those portions of the monitor that ac- 
tually handle the address pointers, hex- 
adecimal input conversions, and dis- 
play management during the inputting 
of programs or data. It utilizes monitor 
subroutines whenever possible. 

Looking at listing 1, the coding in 
BOUNCELESS from $1780 to S17C7 
and $17D8 to $17DD is a condensed 
version of the coding found in the KIM 
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monitor from S1C4F to S1CE6. This 
portion, as you can determine from the 
comments, goes to the keyboard and 
gets the value of the key pushed. It then 
evaluates the key to see if it is a com- 
mand or a hex key. 



Once the decision is made, it goes 
to the KIM monitor to alter the address 
pointers, alter the data in the current 
address, or step to the next memory 
location. 

The heart of BOUNCELESS is the 
16-byte delay routine DEBNCE. It 
starts at S17C8 and goes to $17D7. 
Walking through the routine, you will 
see that the byte in $17C9 is stored in a 
location I labeled TIMER. This is the 
divide-by- 1024 location for the KIM in- 
terval timer. 



Once a value has been stored there, 
the timer starts counting down. It con- 
tinues to count down, no matter what 
else the program may be doing. In this 
case though, there is nothing else for 
BOUNCELESS to attend to other than 
keep the display lit by repeated calls to 
SCAND while waiting for the timer to 
time out. It is during this waiting 
period that we get the debounce action. 
Since the program is occupied with 
watching the timer, it cannot get back 
to look at the keypad again rapidly 
enough to be fooled by a keybounce. 



The end of the debounce routine has 
a forced branch. To keep the program 
fully relocatable, I couldn't use any 
JMP or JSR instructions, since they 
would have required absolute addresses 
in the arguments. So, a forced branch is 
achieved by clearing the carry flag at 
$17D5 and then using a Branch on 
Carry Clear at $17D6. 

DEBOUNCED BROWSE is accom- 
plished in the same manner as 
BOUNCELESS. The original BROWSE 
coding from $0100 to $018D remains 
the same except for the byte at 0124. 
My new routine, DEBNCE, follows 
from $018E to $019D. See listing 3. 
UP, a displaced routine from the 
original BROWSE ($018E to $0193) is 
now located from $019E to $01A3. 



When relocating UP, the argument 
for the relative branch at $0123, which 
calls it, must be changed. Make $0124 
$79 and it will point to the new loca- 
tion. Similarly, the argument for the 
forced branch at the end of UP had to be 
adjusted to get back to LP1. 



Listing 1 








KIM-1 


BOUNCELESS DATA ENTRY 












BY JODY NELIS 














REGISTERS USED: 












DELAY 


EPZ 


$7F 


MAY BE VARIED BY USER 










POINTL 


EPZ 


Sfa 


ADR POINTER LSB 










POINTH 


EPZ 


$FB 


ADR POINTER MSB 










TEMP 


EPZ 


$FC 


TEMPORARY STORAGE 










MODE 


EPZ 


$FF 


AD OR DA MODE FLAG 










.•MONITOR EQUATES: 












TIMER 


EQU 


$1707 


INTERVAL TIMER 










INIT1 


EQU 


S1E8C 


INITIALIZE DISPLAY 










SCAND 


EQU 


S1F19 


LIGHT 'LED DISPLAY 










INCPT 


EQU 


S1F63 


INCREMENT MEMORY POINTERS 










GETKEY 


EQU 


51F6A 


INPUT KEY VALUE FROM KEYPAD 












INITIALIZE 


ST" VECTOR TC ALLOW ENTERING PROGRAM 












WITH 


THE "ST" KEY BY SETTING 17FA, 17FB EQUAL 












TO THE (SAL), (SAH) . 












I 


ORG 


$1780 




1780 


20 


8C 


IE 


INITLZ 


JSR 


INIT1 ; 


INITIALIZE DISPLAY 


1783 


20 


19 


IF 


START 


JSR 


SCAND 




1786 


F0 


FB 






BEQ 


START > 


MAKE SURE NOT JUST 


1788 


20 


19 


IF 




JSR 


SCAND » 


NOISE ON THE KEYS 


178B 


F0 


F6 






BEQ 


START 




178D 


20 


6A 


IF 




JSR 


GETKEY J 


GET KEY VALUE 


1790 


C9 


13 






CMP 


#$13 J 


IF $13 OR GREATER IT IS 


1792 


10 


EF 






BPL 


START 1 


ILLEGAL OR NO KEY DOWN 


1794 


C9 


10 






CMP 


#$10 1 


IF 'AD' KEY DOWN, SET 


1796 


F0 


28 






BEQ 


ADDRM ; 


IN ADR MODE 


1798 


C9 


11 






CMP 


#$11 ? 


IF 'DA' KEY DOWN, SET 


179A 


F0 


28 






BEQ 


DATAM ; 


IN DATA MODE 


179C 


C9 


12 






CMP 


#$12 ! 


IF '+' KEY DOWN, GO TO 


179E 


F0 


38 






BEQ 


STEP J 


STEP ROUTINE 


17A0 








. 








17A0 


0A 






DATA 


ASL 






17A1 


0A 








ASL 


f 


OTHERWISE MUST BE A 


17A2 


0A 








ASL 




HEX KEY. SHIFT CHARACTER 


17A3 


0A 








ASL 


j 


INTO HIGH ORDER NIBBLE 


17A4 


85 


FC 






STA 


TEMP ! 


AND STORE IN TEMP. 


17A6 








t 








17A6 


A2 


04 






LDX 


#$04 




17A8 


A4 


FF 




DATA1 


LDY 


MODE 


TEST MODE FLAG ( 0=DATA, 1-ADR) 


17AA 


DO 


0A 






BNE 


ADDR 




17AC 


Bl 


FA 






LDA 


(POINTL) ,Y ; 


IF DATA, GET DATA, 


17AE 


06 


FC 






ASL 


TEMP 


SHIFT CHARACTER, 


17B0 


2A 








ROL 


; 


SHIFT DATA, 


17B1 


91 


FA 






STA 


(POINTL) , Y ; 


DATA TO DISPLAY, 


17B3 


18 








CLC 




AND FORCE JUMP. 


17B4 


90 


05 






BCC 


DATA 2 : 


ALWAYS! 


17B6 
















17B6 


0A 






ADDR 


ASL 




IF ADR, SHIFT CHAR, 


17B7 


26 


FA 






ROL 


POINTL ; 


SHIFT ADR LOW AND 


17B9 


26 


FB 






ROL 


POINTH ; 


SHIFT ADR HIGH 


17BB 
















17BB 


CA 






DATA 2 


DEX 






17BC 


DO 


EA 






BNE 


DATA1 


DO IT FOUR TIMES 


17BE 


F0 


08 






BEO 


DEBNCE ; 


THEN DEBOUNCE KEY 


17C0 
















17C0 


A9 


01 




ADDRM 


LDA 


#$01 




17C2 


DO 


02 






BNE 


DATAM 1 ; 


BET MODE FLAG TO ADDR 


17C4 








. 








17C4 


A9 


00 




DATAM 


LDA 


#$00 




17C6 


85 


FF 




DATAM1 


STA 


MODE : 


SET MODE FLAG TO DATA 


17C8 








• 








17C8 


A9 


7F 




DEBNCE 


LDA 


♦DELAY ; 


BET DEBOUNCE TIME DELAY 


17CA 


8D 


07 


17 




STA 


TIMER 




17CD 


20 


19 


IF 


TIME 


JSR 


SCAND ; 


KEEP DISPLAY LIT 


17D0 


2C 


07 


17 




BIT 


TIMER 


IF TIME NOT UP YET 


17D3 


10 


F8 






BPL 


TIMF 


<EEP CHECKING TIMER 


17D5 


18 








CLC 


;WHEN TIME IS UP, 


17D6 


90 


AB 






BCC 


START 


JUMP BACK TO START 


17D8 








; 








17D8 


20 


63 


IF 


STEP 


JSR 


INCPT 




17DB 


18 








CLC 


rCALL ROUTINE TO EXECUTE 


17DC 


90 


EA 






BCC 


DEBNCE . 


THE + COMMAND & DEBOUNCE 


17DE 








' 








17DE 










END 
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Listing 2: DEBOUNCED BROWSE for the KIM-1 






Modified version 


of BROWSE 


to eliminate keybounce on the KIM-1 keypad. 


(Original version of BROWSE by Jim Butterlield is in the first book of KIM 


Modification 


by Jody Nelis 


- K3JZD.) 












August, 1980 
















Hex Dump Produced by KIM 










KIM 
















0000 AD G 
















0110 D8 


A9 


13 


85 FE 


A9 


00 85 FA 85 FB 


C6 F3 


DO OE A5 


0120 FD 


F0 


0A 


10 79 


A5 


FA DO 02 C6 FB 


C6 FA 


20 19 IF 


0130 20 


6A 


IF 


C5 FE 


FO 


E4 85 FE C9 15 


FO DE 


A2 00 86 


0140 FD 


C9 


10 


90 1C 


86 


F4 C9 11 FO 01 


E8 86 


FF C9 12 


0150 DO 


02 


E6 


FD C9 


14 


DO 02 C6 FD C9 


13 DO 


CF 4C C8 


0160 ID 


0A 


0A 


OA OA 


85 


FC A2 04 A4 FF 


DO 17 


C6 F4 10 


0170 07 


20 


63 


IF E6 


F4 


E6 F4 Bl FA 06 


FC 2A 


91 FA CA 


0180 DO 


F8 


F0 


A9 OA 


26 


FA 26 FB CA DO 


F8 FO 


9F A9 7F 


0190 8D 


07 


17 


20 19 


IF 


2C 07 17 10 F8 


18 90 


8F 20 63 


01A0 IF 


18 


90 


89 










KIM 
















01A4 EA 

















Running Instructions 

BOUNCELESS is totally re- 
locatable. Load it anywhere you wish. 
Use the object portion of the dis- 
assembly (listing 1) in the same way 
you woud use a hex dump. Save it at 
the beginning of your utility cassette 
since you will need it all of the time. 



When you enter BOUNCELESS, 
nothing obvious will happen. This is 
normal. BOUNCELESS has taken com- 
mand of all of the keyboard input now. 
It will respond to the AD, DA, + and 
#0 - #F hex keys in the normal fashion, 
but without the bounce. It will ignore 
the GO and PC keys. 



When your data input is finished, 
return to the KIM monitor with the RS 
key. You can enter and exit BOUNCE- 
LESS at any time without upsetting 
anything else in user memory. 

(Continued on next page) 




BETA 32K BYTE EXPANDABLE RAM FOR 

6502 AND 6800 SYSTEMS 

AIM 65 KIM SYM PET S44-BUS 

• Plug compatible with the AIM-65/SYM expan- 
sion connector by using a right angle connec- 
tor (supplied). 

• Memory board edge connector plugs into the 
6800 S44 bus. 

• Connects to PET using an adaptor cable. 

• Uses +5V only, supplied from the host com- 
puter. 

• Full documentation. Assembled and tested 
boards are guaranteed for one full year. 
Purchase price is fully refundable if lx>ard is 
returned undamaged within 14 days. 

Assembled with 32K RAM $349.00 

& Tested with 16K RAM 329.00 

Bare board, manual & hard-to-get parts. . . 99.00 
PET interface kit. Connects the 32K RAM board 
toa4Kor8KPET $ 69.00 

See our full-page ad in 
BYTE and INTERFACE AGE 



wabash 




8" or SW" flexible diskettes certified 100% error 
free with manufacturer's 5-year limited warranty 
on all 8" media. Soft-sectored in boxes of 10. 
5'/i" available in 10-sector. 
(Add $3.0<l for plastic library cases) 

8" single sided, single density $ 27.50 

8" single sided, double density 35.50 

8" double sided, double density 45.50 

5'V single sided, single density 27.50 

5'/*" single sided, double density 29.50 

5 '/-"single sided, double density, tO-sectorj 29.50 



PAPER TIGER 
PRINTERS 

IDS 460G 9x9 Dot Matrix Printer $890.00 

IDS 560G Wide Carriage Printer 1099.00 

TERMINALS 

ADDS Viewpoint $569 00 

TclcVideo 910 579.00 

IcIcVidco 9I2C 679 00 

TclcVideo 920C 729.00 

releVideo 950 929 00 



8" DISK DRIVES 

Shugart 801R $399.00 

NEC FD1 160 (double sided) 569.00 

DYNAMIC RAMS 

41161200ns) set of K $24 00 

4l64(64Kxl| $18.00 



TERMS: Minimum order $15.00. Minimum ship- 
ping and handling $3.00. Calif, residents add 6^o 
sales tax. Cash, checks. Mastercard, Visa and pur- 
chase orders from qualified firms are accepted. 
(Please allow two weeks for personal checks to 
clear before shipment.) Product availability and 
pricing subject to change without notice. 
INTERNATIONAL ORDERS: Add 75 ■? to pur- 
chase price for all urders. Minimum shipping 
charge is $20.0(1. Orders with insufficient funds 
will he delayed. Excess funds ivill he returned 
u ith i/nur nrdcr. All prices are U.S. unit/. 



compuTER Devices 

1230 W.COUinj AVE. 

ORAnGE. CA 99666 

(714)633-7980 
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DEBOUNCED BROWSE is also 
totally relocatable. Load it anywhere 
using listing 2. The operating instruc- 
tions remain exactly the same as the 
original version. Refer to The First Book 
of KIM for all of BROWSE'S features. 

If you still get an occasional bounce 
when running either program, try in- 
creasing the value of the time delay 
byte. In BOUNCELESS this is $17C9 
and in DEBOUNCED BROWSE it is 
S018F. Increasing the value will in- 
crease the delay. 



Jody Nelis has been working with a KIM-1 
since 1977. He bought it primarily to 
educate himself in the workings of small 
computers. Even though he also has an 
AIM-65 now, he still continues to work 
with the KIM-1 and highly recommends it 
to anyone desiring an excellent educational 
tool at a price that can't be beat. 



JMCAO 



Listing 


3 






DEBOUNCED BROWSE 

MODIFICATION TO THE 
ORIGINAL 'BROWSE' 
BY JIM BUTTERFIELD 












(THE 


MODIFIED PROGRAM 












REMAINS COMPLETELY RELOCATABLE) 










MODIFIED BY JODY NELIS 










DELAY 


EPZ 


S7F 












■CHANGE THE FOLLOWING LINF 


IN THE ORIGINAL 'BROWSE' 












ORG 


$0123 




0123 


10 


79 






BPL 


UP 


;(NEW BRANCH OFFSET) 










ENTER 


NEW PROGRAMMING FROM 


S018E TO END 












ORG 


S018E 




018E 


A9 


7F 


DEBNCE 


LDA 


#DELAY 


;SET DEBOUNCE TIME DELAY 


0190 


8D 


07 


17 




STA 


TIMER 


; TO .13 SEC. 


0193 


20 


19 


IF TIME 


JSR 


SCAND 


;KEEP DISPLAY LIT 


0196 


?C 


07 


17 




BIT 


TIMER 


;IF TIME NOT UP YET 


0199 


10 


F8 






BPL 


TIME 


;KEEP CHECKING TIMER 


019B 


la 








CLC 




,-WHEN TIME IS UP 


019C 


90 


8F 






BCC 


LP1 


;JUMP BACK TO LP1 


019E 
















019E 


20 


63 


IF UP 


JSR 


INCPT 


;CALL ROUTINE TO 


01A1 


If) 








CLC 




; INCREMENT ADDR 


01A2 


90 


89 






BCC 


LP1 


; FOR BROWSING 


01A4 








• 








01A4 










END 







SOUTHEASTERN MICRO SYSTEMS 



SCREEN FORMAT 

ST-02 HAS FOUR SCREEN FORMATS SWITCH SELECTABLE: 
16 x 32 



CHARACTER FORMAT 

ST-02 HAS TWO CHARACTER GENERATORS: 

- MC6674 5x7 Matrix 

- 2716 User Programmable 5x7 

Matrix 

CHARACTER GENERATORS APE SWITCH SELECTABLE 
ON RESET OR MAY BE CHANGED UNDER SOFTWARE 
CONTROL . 



IO WPUT/OUTPUT 

KEYBOARD INPUT IS 7 OR 8 BIT ASCII ENCODED WITH 

ACTIVE LOW STROBE. 

TERMINAL IS STANDARD RS-232. 

SELECTABLE BAUD RATES OF 300, 600, 1200, 2400, 

4800, 9600. 

PRINTER OUTPUT IS PARALLEL 7 OR 8 BIT WITH ACK. 

THIS PORT MAY BE USED AS SERIAL TO PARALLEL 

CONVERTER OR MAY BE USED IN SCREEN PRINT PUNCTION. 



US SHIPPING S3.50. FOREK3N ADD 10% 
(US FUNDS ONLY) 



1080 IRIS DRIVE 

CONYERS, GEORGIA 30207 

404-922-1620 



ST-02 
VIDEO BOARD 

• THE ST-02 IS A STAND ALONE VIDEO CONTROLLER 
UTILIZING THE 6802 CPU AND 6845 VIDEO CONTROLLER- 

* THE SIZE OF THE BOARD IS 7k m X 8%". 

* POWER SUPPLY REQUIREMENTS: 3 amps $ *5 vdc 

100 ma. ? +12 vdc 
100 ma. P -12 vdc 

• VIDEO OUTPUT IS COMPOSITE VIDEO 



CONTROL CHARACTERS 



CURSOR FORMAT 



BLOCK CURSOR 
NON-BLINK CURSOR 
BLINKING BLOCK 



UNDERLINE CURSOR 
BLINKING CURSOR 
BLINKING UNDERLINE 



CTL J - LINE FEED 

CTL Z - CLEAR SCREEN 

CTL K - UPLINE 

CTL G - BELL 

CTL H - BACKSPACE CURSOR 



CTL L - FORWARD SPACE CURSOR 
CTL M - CARRIAGE RETURN 
CTL N - KEYBOARD UNLOCK 
CTL O - KEYBOARD LOCK 
CTL A - HOME CURSOR 



ESCAPE COMMANDS 



SEND CURSOR LOCATION 
CURSOR POSITION REQUEST 
INVERSE VIDEO 
ACTIVATE PRINTER 



DEACTIVATE PRINTER 

PRINT SCREEN 

ACTIVATE CRT & PRINTER 

SWITCH CHARACTER GENERATOR ROMS 



THESE ARE ONLY A FEW!!! 



Assembled 
$325.00 

Kit 

$275.00 

Char. Gen. 2716 Eprom 
$15.00 

Bare Board 
With Monitor EPROM 

$100.00 

Bare Board 
$75.00 



Master Charge. Visa, American Express Accepted 
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MONEY BUSINESS 



Beat the I.R.S. 



You'd always pay the minimum Federal income tax if you 
had the knowledge and time to examine 120 tax return 
options. Well, now you can do it, with Datamost's TAX 
BEATER. 

Written by an I.R.S. Enrolled Agent, with 24 years of 
financial and tax planning experience, the TAX BEATER 
automatically evaluates up to 120 return options from 
your input. It searches and finds the best tax path for 
you . . . displaying up to 15, and ready to print out the 
optimum method so you pay the minimum! 

The TAX BEATER can handle it all. From income averag- 
ing to loss carryovers to 
dividends, alimony, 
pension to special 
exclusions. It's 
perfect for the 
average tax- 
payer . . . indis- 
pensable for 
the financia 
professional. It's 
so complete, so 
logical that, es- 
pecially in this in- 
terim year of un- 
usual tax revisions, 
it can easily pay for 
itself many times 
over. Be ready for the 
I.R.S. . . . with TAX 
BEATER, the program 
that's updated for the 
1981 tax laws! 

5129.95 on disk for 
Apple II*. Completewith 
thorough, easy to follow 
documentation. 



Beat the Real Estate game 

Real Estate has always been the major wealth-builder. 
In fact, more millionaire dynasties owe their creation to 
investments in real estate than anything else. And, it 
doesn't matter . . . boom times or bust . . . inflation or 
deflation . . . the knowing investor can make money, even 
create an empire! 

But, the key to real estate success is accurate analysis of 
opportunities, knowledge of cash flows, return on invest- 
ment, current and future profitability, tax consequences 
and other interrelated information — all needed, all 
necessary to making the right decision. 

And that's what REAP (Real 
Estate Analysis Pro- 
gram) is all about. It 
takes your input, 
probes for the 
right informa- 
tion, scrutinizes 
the data, the 
opportunities . . . 
and automati- 
cally delivers the 
facts . . . showing 
you the possibilities 
and why one situa- 
tion may be superior 
to another. In short, 
I REAP can help you 
reap bigger profits. 
That's why REAP is the 
program for any inves- 
tor ... a must program 
for the sophisticated 
investor. Don't option, 
commit, invest or buy 
without it . . . whether you 
just want to make good 
money or create a suc- 
cessful real estate empire! 

$129.95 on disk for Apple 1 1". 
Complete with thorough 
easy to follow documen- 
tation. 




VISA/MASTERCHARGE accepted 
$1.00 shipping/handling charge. 
(California residents add 6% tax) 

' Apple II is a trademark ol Apple Computer. Inc. 
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Available at 
computer stores, or from: 

DATAMOST 

19273 Kenya St. 

Northridge, Ca. 91326 

(213) 366-7160 
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>lduanced/s 

xC-tended 

Editor 



The Advanced X-tended Editor (AXE) is a professional programming aid 
which provides the user with a "text-editor style extension to the 
standard Applesoft* operation system. Operation alongside DOS, Monitor 
and Applesoft, AXE remains transparent to the user until called upon by 
one of over thirty commands. 

• Global search & replacement, including wildcards, 
selected changes, & line number references. 

• Full character insert, gobble & delete. 

• Full statement insert & delete 

• Enhanced cursor movement including search 
ahead & position. 

• Two packed list edit modes. 

• Recall editing modes. 

• User programmable keyboard macros. 

• Four LIST formats, including unique BREAK LIST 
format for easier reading, understanding, & editing 
of code. 

• Auto line-numbering. 

• Lower case character entry. 

• Resident BASIC program may be run at any time. 

• Many more features. 

• Develop programs quicker & easier, saving hours of 
programming cost. 

• Requirements: 
Apple 11/11+,* Applesoft, 
DOS 3.3, 48K Ram 

Commands are easy, logical, and operate in the normal Applesoft entry 
mode, or in AXE's editing modes. AXE operates on BASIC code as stored 
in memory by Applesoft. No conversions of code to text is required. In 
addition, all Apple II DOS and Monitor commands are left fully functional. 

Alduanced yftendEd Editor 



Available at your local dealer 
An invaluable tool at only $69.95 




*Apple II/II+, and Applesoft 
are registered trademarks 
of Apple Computer, Inc. 




Lrersa Computing, Inc 

3541 Old Conejo Road, Suite 104 
Newbury Park, CA. 91320 (805)498-1956 
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Binary Storage 
and Array Retrieval 



A technique for extremely fast 
I/O of arrays on disk is 
presented. It is accompanied by 
a demonstration program and a 
discussion of the representation 
of arrays in Applesoft. The 
method may be extended to 
other floating-point BASIC 
languages. 



Hank Blakely 

122 6th Street, S.E. 

Washington, D.C. 20003 



The DOS textfile facility, although 
very useful for other purposes, is not an 
especially good method for storing and 
retrieving array data. In fact, compared 
to other DOS routines, particularly the 
binary save and load process, the text- 
file is extremely slow. An array of 
30,000 elements requires two to three 
minutes to be saved to a textfile. An 
equivalent amount of data can be zip- 
ped onto the disk as a binary file in 
about thirty seconds. 

Moreover, since tcxtfiles are literal, 
rather than symbolic representations of 
data, they do not use space efficiently. 
An array value such as 123.123456 re- 
quires 1 1 bytes — one for each charac- 
ter — to be stored in a textfile. Com- 
pare this to the five bytes required for 
floating-point storage in core memory. 
Also, since textfiles are finicky about 
accepting such delimiters as "," and 



":", they are not normally capable of 
saving and loading absolutely faithful 
images of string arrays. 

Of course, textfiles do offer certain 
advantages over other forms of storage. 
For example, the APPEND command 
will link data to an existing file 
without needing to first read the file, 
add data, and then rewrite. The POSI- 
TION command, the B(yte) parameter 
specification, and the random access 
configuration allow the operating sys- 
tem to "reach into" the file and extract 
or replace specific records, fields or 
characters. 

However, for those storage and 
retrieval applications that are not con- 
cerned with that level of manipulation, 
(particularly in cases where data is to 
be written read as an entire file), it is 
much faster and less cumbersome to 
BSAVE arrays directly to disk as binary 
files. 

The following is a generalized meth- 
od for implementing this process in 
Applesoft or, by extension, any similarly 
configured member of the Microsoft 
BASIC family. Although the tech- 
niques are comparatively simple, they 
need to be approached with a little 
forethought and some understanding of 
the principles involved. 

How Applesoft Variables are Stored 

As they are encountered within a 
program, all Applesoft variables are 
stored in a space that begins at the 



LOMEM setting (usually coincident 
with the end of the program itself, but 
occasionally set higher). The variable 
space is partitioned into two segments 
for simple and array variables. 

The addresses for the first segment, 
simple variables, are stored in decimal 
locations 105/106 and 107/108. The 
addresses for the array variables in the 
topmost segment, are in locations 107/ 
108 and 109/110. 

These two segments contain all of 
the information necessary to allow an 
Applesoft program to find and manipu- 
late all of the numeric variables. 
Strings, however, are another matter. 
Although the program and the numeric 
variables build from the bottom of user 
memory, strings start at the HIMEM 
setting and extend downward toward 
the top of the numeric value segment. 
In fact, it is the constantly narrowing 
gap between these two stacks that leads 
to the frequently sudden and annoying 
"garbage collection" process. The 
memory location of the last string 
stored is designated "start of string 
storage" and its address is at decimal 
locations 111/112. 



The string storage area, however, 
contains only the literal elements of 
the strings. Applesoft locates these 
elements by referring to addresses 
located within the appropriate segment 
of the variable space that "point" to 
each string. 













-i \/ 


NUMBER OF 
PENSIONS 








^^ 




DI 






NAME 


NEXT 

VARIABLE 

OFFSET 


NUMBER 

OF 

DIMENSIONS 


SIZE OF 
N-TH 

DIMENSION 




SIZE OF 

FIRST 

DIMENSION 


FIRST 
ARRAY 

ELEMENT 






\ 

"addr" VARIA 

CALCULATED T 
Figure 1: Common Header for Variab 


BLE 

HERE 

e Files 




NAME- 
R0UTI 
LANDS 


FINDER^^'^ 
NE 
HERE 
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Applesoft Array Storage 

Each array within the array stack is 
defined by a variable file — a unique 
range of data that consists of two parts: 
an introductory header containing in- 
formation relating to the nomenclature 
and structure of the array, and a trailer 
that contains the field of array values, 
or pointers to string array elements. 

As shown in figure 1, the first seven 
bytes of the header are exactly the same 
for all three variable types, and are 
allocated as follows: 

Two bytes for the first two char- 
acters in the variable's name. These 
are ASCII equivalents, and are 



uniquely coded by turning the high 
bit of each character on or off, to 
indicate the type of variable. 



Two bytes for the value of an offset 
which, when added to the initial ad- 
dress of the current variable file, 
gives the address of the next vari- 
able in memory, and therefore im- 
plies the absolute length of the cur- 
rent file. 



One byte for the number of dimen- 
sions in the array. 

Two bytes for the size of the Nth 
array dimension. 



From here the header adds two 
bytes for each dimension in the array. 
Since Applesoft limits the number of 
dimensions in an array to 88, the 
header length will always be between 
seven and 181 bytes. 



As shown in figure 2, the length of 
the trailer for each file varies according 
to the number and type of the array 
elements. Each real variable requires 
five bytes to accommodate the floating- 
point format. Each integer value re- 
quires two bytes for reverse-order nota- 
tion (most significant byte first]. Each 
string pointer requires three bytes — 
one for the string length, and two for 
the address. 











FLOATING- 
POINT 


EXPONENT 


MANTISSA 
MSB 


MANTISSA 


MANTISSA 


MANTISSA 
LSB 














STRING 


LENGTH 


ADDRESS: 
LOW BYTE 


ADDRESS: 
HIGH BYTE 












INTEGER 


VALUE: 
HIGH BYTE 


VALUE: 
LOW BYTE 




Figure 2: Structure for Eac 


h Array Element by Type 





Your Apple too slow ? 
Not anymore... 



Now you too con write 6809 programs for your Apple II rhor ore 
DOS 3.3 compotible. Bur you don'r hove to srop there, you con 
olso program your Apple H's 6502 ond rhe 6809 of THE MILL to run 
SIMULTANEOUSLY. 

THE ASSEMBLER DEVELOPMENT KIT Including THE MILL, is o full 
feorure ossembler. designed to use rhe rexr editing system of your 
choice. The system will olso boost your computer programming 
productivity, since rhe 6809 is today's easy to leorn ond program 
computer. Take advantage of the 8-bir 6502 ond the 16-bit 
obilities of the 6609 running or rhe same time, create your own 
MULTIPROCESSING ENVIRONMENT on the Apple II. 

Pur THE MILL into your Apple II ond ger power, performance ond 
price matched by no other personal computer. STELLATION TWO 
offers o full 1 year warranty and a 60 doy money bock guaranree. 
if you're nor completely satisfied with the power of THE MILL. 

Shop oround. then compore the service, quality, price ond 
power of THE MILL Take [his ad to your local Apple Dealer ond see 
rhe endless possibilities of adding THE MILL ro your Apple II. 



THE MILL TRANSFORMS 

THE 8-BIT APPLE II 
into o computer that octs like o 
16-bit machine. THE MILL has 
unique hardware features that 
permit rhe 6809 ro run at full 
speed ( 1 megahertz) and 
allow the 6502 ro run ot 
20% of its normal 
speed — 
AT THE SAME TIME! 





Find out about 
THE MILL and get 
involved with rhe 
hottest item on the 
personal computer 

market todoy 
No exisring personal computer 
con give you rhe power, 
performance and price of THE MILL'S 

6809-6502 combination 



P.O. BOX 2342 -N9 
SANTA BARBARA, CA. 93120 
(605)966-1140 



Storing and Retrieving Arrays 

Program B.MODE demonstrates the 
array filing method. 

A choice of "W" from the selection 
menu creates three test arrays based on 
the squares and cubes of 10 elements 
(two 100-element integer and real 
types, and one 1000-element string 
type), and transfers control to the first 
address calculation routine "strings" 
at line 410. 

Line 420 equates the zero-th ele- 
ment of the array to itself. This has the 
effect of invoking an Applesoft internal 
locator routine that first locates the 
array in the variable space, and then 
deposits its address in decimal loca- 
tions 131 and 132. The values in these 
two registers are then transferred to 
two "safe" locations so they will not 
be lost when another variable is 
referenced. DMEN is then set to the 
number of dimensions, and control is 
transferred to the SAVE and LOAD sec- 
tion beginning at line 340. 

The SAVE and LOAD routine calcu- 
lates the location and length (ADDR 
and LGTH] of the variable file by start- 
ing at the address in the "safe" loca- 
tions and counting back three bytes 
plus two times the number of dimen- 
sions to the next-variable offset. The 
resultant range of data is then BSAVEd 
to disk. The same calculations are per- 
formed for the "R" (for "Read") selec- 
tion, but, of course, the length para- 
meter is not used. 



This basic process is the same for 
the storage and retrieval of all three 
array types. There is, however, one 
important difference in the process for 
string arrays. Since the actual strings 
are not located in the same area as their 
pointers, it is necessary to determine 
their locations and establish a separate 
file for them. Accordingly, line 440 
resets ADDR to the location of the 
zero-th element, and sets LGTH equi- 
valent to the difference between ADDR 
and STRG. This memory range is then 
either BSAVEd or BLOADed, depend- 
ing on the menu selection. 



Comparisons and Conditions 

The differences, in terms of speed of 
execution and storage space, are im- 
pressive, and grow more so as the arrays 
increase in size. Figure 3 compares read 
and write timings and sector storage for 
text vs. binary files for the 10-element 
base test array. It also shows similar 
comparisons for the same array limited 



100 REM 



B.MODE 



110 D« = CHR* (4): FILE* = " " : SL* = "" 

120 DIM CHAR* (9, 9), IGER7. (9, 9, 9) , REAL (9, 9) 

130 ADDR = 0:LGTH = OlSTRQ = 0:J = OsK = OiDMEN = 

140 REM 

150 REM CONTROL 

160 TEXT : HOME : VTAB 23: HTAB 1: INPUT "READ OR WRITE <R/W> 

;SL«: IF S L* < > "R" AND SL* < > "W" THEN 160 
170 IF SL* = "R" THEN 410 

180 IF SL* - "W" THEN QOSUB 200: GOTO 410 
190 REM 



TEST ARRAYS 

* 256 



"COL 



200 REM 

210 STRG = PEEK (111) + PEEK (112) 

220 FOR J = O TO 9: FOR K = O TO 9 

230 CHAR*<J.K) ■ "ROW " + STR* <J> 

240 NEXT : NEXT 

250 FOR J = O TO 9: FOR K = O TO 9 

260 REAL (J, K) = J * 10 + (K / 10) 

270 NEXT : NEXT 

280 FOR J = O TO 9i FOR K = O TO 9: FOR I = O TO 9 

290 IGER7. <J,K, I) = J » 100 + K * 10 + I 

300 NEXT : NEXT I NEXT 

310 PRINT FRE (0) ; CHR* (7) 

320 TEXT : RETURN 

330 REM 



STR* (K) 



340 
350 
360 
370 
380 
390 
400 
410 
420 

430 
440 

450 
460 
470 
480 
490 

500 
510 
520 



—SAVE & LOAD 
256) - 3 - 2 * DMEN 
1) * 256) 



(254) + PEEK (255) * 

(ADDR) + PEEK (ADDR •» 

THEN PRINT DVBSAVE "FILE*; " , A" ; ADDR; " , L"LGTH 

THEN PRINT D*"BLOAD "FILE*; ", A" ; ADDR 



530 
540 

550 
560 
570 
580 

590 
600 
610 



620 
630 
640 



REM 

ADDR = ( PEEK 
LGTH = ( PEEK 

IF SL* = "W" 

IF SL* = "R" 

RETURN 

REM 

REM STR I NGS 

CHAR*(0,O) = CHAR*(0,0): POKE 254, PEEK (131) 1 POKE 255, 

PEEK (132) 
DMEN = 2tFILE* = "CF.FILE": GOSUB 340 
ADDR ■ PEEK (ADDR + 4 + 2 * DMEN) + PEEK (ADDR + 5 + 2 * DMEN) 

* 256 
LGTH = STRG - ADDR 
IF SL* = "W" THEN PRINT DVBSAVE CS. FILE, A"ADDR" , L"LGTH 
IF SL* = "R" THEN PRINT DVBLOAD CS. FILE, A"ADDR 

REM REALS 

REAL(0,0) = REAL(0,O): POKE 254, PEEK (131) I POKE 255, 

PEEK (132) 
DMEN = 2: FILE* = "RL.FILE": GOSUB 340 

REM INTEGERS 

IGER7. (0,0,0) - IGER7. (0,0,0) 1 POKE 254, PEEK (131) 
PEEK (132 ) 
DMEN = 3iFILE* = "16. FILE": GOSUB 340 

REM 



POKE 255, 



REM D I SPLAY 

PRINT CHR* (7> 

TEXT : HOME 

PRINT "STRINGSi": FOR J = TO 9: FOR K = 

PRINT CHAR* (J, K>" •' j i NEXT : PRINT t PRINT : 



TO 9: 
NEXT 



INPUT "NEXT ";SL* 

TO 9: FOR K = O TO 9: PRINT REAL 



FOR J 



VTAB 23: HTAB 
TEXT : HOME 
PRINT "REALS: 
(J,K)" ";i 

NEXT : PRINT 
VTAB 23: HTAB 
TEXT I HOME 

PRINT "INTEGERS:": FOR J = 
FOR I = O TO 9: PRINT 

IGER-/.(J,K,I)" ";i NEXT j PRINT i PRINT : NEXT : PRINT : NEXT 



PRINT : NEXT 
INPUT "NEXT "(SL* 



TO 9: FOR K = TO 9i 



to five elements (25 numerics, and 125 
strings), and expanded to 20 elements 
(400 numerics and 8000 strings). 

Although the improvements in 
speed and space utilization depend on 
the size of the elements involved, it ap- 
pears that most arrays can be saved and 



loaded in from four to 14 times faster 
than textfiles, and may take up only 
half the space for numeric arrays, while 
sacrificing only a few sectors for strings. 

When using this technique, one or 
two conditions need to be observed. 
First, the address calculations for the 
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write time 
read time 

space; sects 

char. - text 
char, - ptrs 

REALS 
INTEGERS 

Figure 3: Comparison of Tim 














TEXT BMODE 




TEXT BMODE 




TEXT BMODE 




0:57 
0:51 


0:14 
0:10 


6:44 
6:31 


0:37 
0:28 


0:13 0:11 
0:08 0:07 


^^^^^ 
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3 

17 


6 
3 

4 
9 


22 

10 
143 


20 
6 
9 

64 


3 

2 
3 


3 
2 
2 
3 


10-ELEMENT BASE 20-ELEMENT BASE 
ing and Sector Usage for Various-Sized Types of Arrays. 




5-ELEMENT BASE 





string elements are based on the posi- 
tion of the zero-th element of the array. 
If that element is located within the 
program itself, the SAVE and LOAD 
routine will consider its position to be 
the start of the string file, and will at- 
tempt to save everything from there up 
to STRG. 

Second, from the point where the 
zero-th element is first invoked to the 
point where the array is saved or loaded, 
any variables, particularly simple 
variables, referenced or assigned, must 
have been previously dimensioned. 
Otherwise the variable stack will be 
shifted up to accommodate them, and 
the locational references will become 



AT LAST... 

A menu driven 
data base management 

system for 

multi-data base 

applications 

(•vjV 1, on-line 

V* * r 



& 



data retrieval 

S50.00 
Data base 
management system 
S200.00 

plus 

Accounting 

package 

S 150.00 

Stock portfolio 
150.00 

Stock financial 
statement analysis 

S250.00 

for 8" floppy/hard disc 
under OS65U 
write for details 

Genesis Information 
Systems, Inc. 

P.O. Box 3001 • Duluth, MN • 55803 
Phone 218-724-3944 



meaningless. This is not a problem 
once the BSAVE or BLOAD process has 
been completed. 

Finally, the FRE(0) statement is ab- 
solutely necessary to force a garbage 
collection and to reduce the size of the 
string file. 

Extension to Other Systems 

This method should be simple to 
implement in other versions of Micro- 
soft BASIC, or any floating-point 
BASIC that structures and stores its 
variables in a similar manner. Or it 
could be implemented on a BASIC that 
has some provision for locating and 



saving the addresses of specific array 
elements. Given those prerequisites, all 
you need to do now is to determine the 
system-specific addresses for array 
space, string storage, and the locator's 
variable address dump, and to make the 
appropriate substitutions. 



Hank Blakely is president of the Athena 
Group, a federally-certified corporation 
specializing in microsystem design for 
business and government. He has used an 
Apple II for three years, and is fascinated 
with graphics, artificial intelligence, and 
robotics. 
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by enses, inc. 

D€SIGN€D TO PROT6CT VOUR COMPUT6R 




Features — 

• Rigid Shell Made of Plywood 
Supported High Impact P.8S. 

• Shock Resistant Foam Lining. 

• Heavy Duty Hardware 
Includes Key Locking Latches 

• Sound Metal 6dges. 

• Interlocking Tongue and 
Groove extrusion, Mating Ud 
and Bottom. 

fipple II Plus 2 Drives $1 75.00 



OTH6R 

MODOS 

flVRILRBLS 



cflses. INC. 



CLUB AND D6RL6R DISCOUNTS RVRILRBL6 
P.O. Box 33820 Seattle. LUR 98133 (206)365-5210 



IF YOU CONSIDER THE PRICE, COGNIVOX AT $249 IS THE BEST 

BUY IN VOICE I/O. 

IF YOU CONSIDER THE PERFORMANCE, YOU WILL BUY IT. 

BECAUSE COGNIVOX OUTPERFORMS ALL VOICE INPUT OR OUTPUT 

PERIPHERALS FOR THE APPLE II. 

AT ANY PRICE. 



COGNIVOX VIO-1003 is a state-of-the-art 
Speech Recognition and voice output peripheral 
for the APPLE II computer. It enables the APPLE 
to recognize words or short phrases spoken by the 
user and it can talk with natural sounding voice. 

SPEECH RECOGNITION 

COGNIVOX recognizes words (such as "one," 
"enter," etc.) or short phrases (like "total 
amount," "net weight," etc.) from a vocabulary 
of 32 entries. The vocabulary entries are chosen by 
the user to suit his application. Then COGNI- 
VOX is "trained" to the vocabulary by repeating 
each entry three times into the microphone under 
the prompting of the system. 

During training, COGNIVOX analyzes the 
voice of the user and compresses all the important 
information in each entry into 48 bytes of data 
called the reference pattern. When training is 
complete, words spoken in the microphone are 
similarly analyzed and the resulting 48-bit pattern 
is compared with all the reference patterns to ob- 
tain a best match. 

The power of COGNIVOX is derived from pro- 
prietary pattern generation and pattern matching 
algorithms that allow quick and easy training and 
give a recognition accuracy equal to much more 
expensive units. 

Vocabularies larger than 32 words are possible 
by swapping reference patterns in memory using a 
key word, for example, "change vocabulary." Or 
the swap can be performed under program con- 
trol. 

VOICE OUTPUT 

COGNIVOX can talk with a vocabulary of 32 
words or short phrases. No restrictions are placed 
on the vocabulary which can be programmed 
simply by saying the words into the microphone. 
The speech waveform is then digitized using a 
data compression method and stored in memory. 

When voice output is desired, the selected word 
or phrase is reconstructed and played back using a 
built-in speaker/amplifier. A jack is also provided 
that allows connection to external amplifiers or 
speaker. 

This method of voice output offers two very im- 
portant advantages: First, the user has full control 
over the selection of the vocabulary and the type 
and tone of voice. Second, the voice output is nat- 
urally sounding human speech which is pleasant 
and easy to understand. These features are not 
available in most other voice output devices in the 
market. 

The voice output and speech recognition voca- 
bularies are independent of each other and can be 
different. Thus it is possible to establish a dialog 
with the computer. 








USING COGNIVOX 

COGNIVOX is designed for extreme ease of 
use. It is a complete system, fully assembled and 
tested, including hardware in an instrument case, 
microphone, power supply, cassette with software 
and user manual. It plugs into the game I/O port 
in the APPLE and does not use up the valuable 
peripheral slots. 

Software provided with COGNIVOX include 
demonstration programs and two voice operated, 
talking video games. All programs are unprotect- 
ed so that the user can examine and modify them. 

An optional diskette for DOS 3.3 includes all 
cassette software plus disk facilities to store and 
retrieve vocabularies on disk. 

Adding voice I/O to your own programs is very 
simple. A statement in BASIC is all that is needed 
to either recognize or say a word. Complete in- 
structions on how to add voice to your programs 
are given in the manual. 

APPLICATIONS 

COGNIVOX adds a whole new dimension to 
man-computer interaction. It can be used for data 
and command entry when hands and/or eyes are 
busy. As an educational tool. As an aid to handi- 
capped. As sound effects generator. As a tele- 
phone answering machine. As a talking calcula- 
tor, or talking clock. 

The list is endless. With a BSR home controller 
interface it can be used to control by voice ap- 
pliances and lights around the house. With an 
IEEE 488 interface card it can l>e used to control 
by voice instruments, plotters, test systems. And 
all these devices could talk back, saying their 
readings, alarm conditions, even their name. 
Finally, COGNIVOX is a super toy, a fascinating 
device to play with. Imagine an adventure game 
that talks to warn you of danger and listens to 
vour commands! 



ORDER COGNIVOX TODAY 

To order COGNIVOX by phone, call us at (805) 685-1854, 9AM to 4PM PST. Monday through Fri- 
day, and charge it to your MASTERCARD or VISA. Or you can order by mail. Send us a check or 
money order for S249 plus $5 shipping and handling (CA residents add 6% tax). Software on 
diskette (DOS-3.3) order part # DSK-3.3, $19. Foreign orders welcome, add 10% for air mail 
shipping and handling. COGNIVOX is backed by a 120 day warranty against manufacturing 
defects. 



SPECIFICATIONS 

Recognizer type: 

Isolated word, speaker dependent. 
Vocabulary size: 

32 words or short phrases for both recognition and 
voice response. 
Dialog capability: 

Recognition and response vocabularies can be dif- 
ferent. 

Word Duration 

Greater than 150 ms and less than 3 seconds. 
Silence gap between words: 
150 ms minimum. 
Training required: 

Must pronounce vocabulary 3 times to train 
recognizer. Allows words to be individually 
retrained. 

Recognition accuracy: 

Up to 98%. Recognition accuracy depends on 
speaker experience and choice of vocabulary. 
Type of voice output: 
Digital recording of user voice. 
Audio output: 
130 mVV 

Frequency response: 
100 to 3200 Hz. 
Power consumption: 

120 mW during recognition, 350 mW maximum 
during speech output. 
Power supply: 

9V DC, 300 mA, unregulated. 
Dimensions: 
5"x6"x 1.25" 
Memory requirements: 

Approx. 4K bytes for program and tables. 1.5K 
bytes per sec. of speech for storage of voice 
response vocabulary (Approx. 700 bytes per 
word). 

VOICETEK 

OeptG, P.O. Box 388 
Goleta, CA 93116 

ALSO AVAILABLE for COMMODORE 
COMPUTERS and the AIM-65. 
CALL or WRITE for MORE INFO. 
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This beautiful and sophisticated simulation offers superior ball action, 
superior flipper control, and many subtle perfections which will result in 
your superior enjoyment. 

Please don't compare A2-PB1 Pinball with other pinball simulations. 
Nothing else even comes close. $29.95 



The engineering and graphics experts 
opening a new era in computer simulation. 



See your dealer . , . 

or for direct orders, add $1 .50 and specify UPS or first class mail. 
Illinois residents add 5% sales tax. 
Visa and MasterCard accepted. 



Communications Corp. 
713 Edgebrook Drive 
Champaign, I L 61820 
(217) 359-8482 
Telex: 206995 



A Disassembler for the 6809 



Here's a description of the 
operation of a disassembler for 
the 6809 microprocessor. The 
disassembler is written in 
Microsoft BASIC and will run 
either on the Apple II computer 
(using Applesoft) or on the 
Radio Shack Color Computer. 



Mark J. Borgerson 
1624 NW Kings Blvd. 
Corvallis, Oregon 97330 



In this article I will describe the 
development and use of a simple dis- 
assembler for the Motorola M6809 
microprocessor. The disassembler is 
written in Microsoft BASIC and the 
source code appears at the end of the 
article. The program is designed to run 
on the Apple II computer. I originally 
developed the program on a Radio 
Shack color computer, but transferred 
it to the Apple to take advantage of the 
superior operating environment provided 
by Apple DOS 3.3. Since both Apple- 
soft and Radio Shack Color BASIC were 
originally developed by Microsoft, 
transferring the program was fairly sim- 
ple. Only a few changes in the input 
and output routines were needed to 
make the program run on the Apple. 
Conversely, it should be simple to 
make the necessary changes in the pro- 
gram so that it will, once again, run on 
the Radio Shack computer. 

Disassembler Fundamentals 

A disassembler is a program which 
will read a machine language program, 
either from memory or from some 
storage device, then produce a listing of 
the opcode mnemonics and their 
associated data bytes. Some dis- 
assemblers generate output that in- 
cludes labels for all branches and 
referenced data locations. This type of 
disassembler, called a "source code 
generator," can be used to produce a 
text file which may be modified and 
reassembled. 
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Table 1: Mnemonics and Type Indicators for the First 255 Opcodes 
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Table 2: Opcodes and Mnemonics for Special Opcodes 



The simpler disassemblers, like the 
one accompanying this article, simply 
produce a listing of addresses, opcodes 
and data bytes. The output is not suit- 
able for reassembly without a lot of 
editing. The simpler disassemblers are 
generally used to examine code in 
memory, either to verify code you have 
written yourself, or to delve into the 
operation of code written by someone 



else. For instance, I have used the 6809 
disassembler on the color computer to 
examine the code in the BASIC ROMs 
to find out how BASIC uses different 
areas of memory. 

There are two possible approaches 
to take in writing a disassembler. First 
you examine each opcode byte, break it 
into a bit pattern which represents the 
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mnemonic and addressing mode, then 
look up the proper mnemonic string in 
a table. If you examine a table of op- 
codes for the 6809, you will find that 
certain combinations of bits in the op- 
code bytes always occur with a par- 
ticular addressing mode. By using logic 
and bit manipulation, you can deduce 
the proper mnemonic and addressing 
mode for the opcode byte. (This is the 
type of disassembler built into the Ap- 
ple monitor.) However, I discarded this 
approach for two reasons: 



1. The bit manipulations involved are 
most easily done in machine lan- 
guage — I was working with BASIC. 

2. The wide variety of addressing 
modes available for the 6809 makes 
this approach more complex than 
when using a simpler processor like 
the 6800 or 6502. 



The second approach to writing a 
disassembler is to use each opcode byte 
as an index into a table which contains 
both the mnemonic string and an in- 
dicator of the addressing mode. I chose 
this method because it is well-suited to 
implementation in Microsoft BASIC, 
which has an excellent string array 
facility. This approach requires a data 
array of at least 256 strings to hold each 
of the mnemonics |or an indicator for 
an illegal opcode byte — the 6809 has 
34 of these). This method must also 
cope with the fact that there are 47 
two-byte opcodes for the 6809. 



The two-byte opcodes all have a 
first byte which is either $10 or $11. 
This simplifies the procedure for match- 
ing the opcode bytes to the mnemonics 
somewhat, but we would still need two 
more tables of 256 strings if we want to 
use the second byte as an index into a 
table for these instructions. Rather 
than set up this additional array space, I 
simply added the hexadecimal opcode 
representation to the beginning of the 
mnemonic string. Now, whenever the 
first byte of an opcode is $10 or $11, I 
simply search the mnemonic array un- 
til I find an entry which has the same 
hexadecimal representation as the code 
in memory. 



Each mnemonic string ends with a 
single character which indicates the ad- 
dressing mode for the opcode. Table 1 
shows the mnemonic strings for the 
single byte opcodes. Table 2 displays 
the mnemonics and addressing modes 



Table 3 

MN$(305) The array of mnemonic strings 

PR Device number for output 1 = console, 2 = printer 

0$ The string which contains the output line of disassembled code 

HW A number representing a hexadecimal 16-bit word 

HW$ A string which contains a representation of a 16-bit hexadecimal 

word 

BT A number representing a hexadecimal byte 

BT$ A string representing a byte in hexadecimal form 

AD The address of the next byte to be fetched from memory 

OP The value of the most recently fetched opcode 

EA A number representing an effective address — usually the target 

of a branch opcode 

PB The post byte in an indexed mode instruction 

IM A number representing the particular indexing mode determined 

by a post byte 

CD$ A string which contains the data bytes for any data following the 

opcode 

RR A byte which represents the registers to be pushed or pulled 

RR$ The hexadecimal string representation of RR 



for the two-byte opcodes. The address 
mode characters indicate the following 
types of addressing: 

D Direct page 

V Invalid opcode 

R Relative addressing 

X Indexed addressing 

H Inherent mode 

E Extended 1 16-bit) addressing 

M Immediate mode (with 8-bit data) 

L Long branch (16-bit offset) 

1 Push or pull with single post-byte 

2 Two-register mode (as in TFR X,D) 

3 Immediate addressing with 16-bit 
data 



The program (listing 2) runs in a 
tight loop contained in lines 110 to 
390. In this loop the first opcode byte is 
read from memory (line 130) and the 
matching mnemonic is determined. 
Opcodes are matched to mnemonics in 
subroutines beginning at lines 7000 and 
7500. The first of these determines 
mnemonics for single-byte opcodes, 
the second the mnemonics for two-byte 
opcodes. 

The series of IF statements in lines 
170-270 determines the addressing 
mode and call subroutines appropriate 
to each addressing mode. See table 3 for 
a list of the most important variables in 
the program and their functions. 



Using the Program 

The disassembler is very simple to 
use. When you run the program it will 
ask for the hexadecimal address where 
you start the disassembly. Once you 
have entered the address, it will ask 
you whether you want the output di- 
rected to the screen or the printer. After 
disassembly begins, the program is not 
particularly fast. This isn't much of a 
problem since the output scrolls by at a 
comfortable reading rate when it is 
directed to the screen. If I find a par- 
ticularly interesting spot, I halt the pro- 
gram by hitting any key on the key- 
board. Hitting another key will resume 
the disassembly, hitting an ESC will 
restart the program and ask you again 
for the starting address and output 
device. Listing 1 is a sample of the out- 
put. (This particular code is part of a 
video driver for the Apple.) 

I hope this program will be useful to 
any of you who are using the 6809 pro- 
cessor. Although BASIC may not be the 
best language for writing this type of 
program, sometimes you have to use 
the language available. This was cer- 
tainly the case when I first purchased 
my Color Computer. Even if you are 
not using the 6809, the techniques used 
to decipher the bit patterns may in- 
terest you if you would like to work 
with other processors. 
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Listing 


1: Sample of Disassembled Code 


7877: 


34 


36 


PSHS 


A,B,X,Y, 


7879: 


7D 


C000 


TST 


SC000 


787C: 


2A 


0C 


BPL 


S788A 


787E: 


17 


0171 


LBSR 


S79F2 


7881: 


81 


93 


CMPA 


#$93 


7883: 


26 


05 


BNE 


S788A 


7885: 


17 


016A 


LBSR 


S79F2 


7888: 


A6 


E4 


LDA 


iS 


788A: 


8A 


80 


ORA 


IS80 


788C: 


81 


A0 


CMPA 


ISA0 


788E: 


2C 


4B 


BGE 


S78DB 


7890: 


81 


8D 


CMPA 


IS8D 


7892: 


27 


56 


BEQ 


$78EA 


7894: 


81 


8A 


CMPA 


IS8A 


7896: 


27 


54 


BEQ 


S78EC 


7898: 


81 


87 


CMPA 


#$87 


789A: 


26 


05 


BNE 


S78A1 


789C: 


35 


36 


PULS 


A,B,X,Y, 


789E: 


16 


00B6 


LBRA 


$7957 


78A1: 


81 


88 


CMPA 


#$88 


78A3: 


26 


17 


BNE 


S78BC 


78A5: 


0A 


24 


DEC 


$24 


78A7: 


2A 


11 


BPL 


S78BA 


78A9: 


9 6 


20 


LDA 


$20 


78AB: 


9B 


21 


ADDA 


$21 


78AD: 


4A 




DECA 




7 8AE: 


97 


24 


STA 


$24 


78B0: 


0D 


25 


TST 


$25 


78B2: 


27 


06 


BEQ 


S78BA 


78B4: 


0A 


25 


DEC 


$25 


78B6: 


96 


25 


LDA 


$25 


78B8: 


8D 


7E 


BSR 


$7938 


78BA: 


35 


B6 


PULS 


A,B,X,Y,PC, 


78BC: 


81 


9D 


CMPA 


#$9D 


78BE: 


26 


04 


BNE 


S78C4 


78C0: 


8D 


51 


BSR 


$7913 


78C2: 


35 


B6 


PULS 


A,B,X,V,PC, 


78C4: 


81 


8C 


CMPA 


#$8C 


78C6: 


26 


05 


BNE 


S78CD 


78C8: 


17 


009D 


LBSR 


$7968 





Listing 2: 6809 Disassembler 


10 


REM 6809 DISASSEMBLER 


15 


HIMEM: 20000 




20 


REM M.BORGERSON 




30 


REM 12/25/80 




40 


DIM MN$(305) :H$ = ' 


0123456789ABCDEF" 


50 


GOSUB 9000: REM 


READ DATA 


60 


REM GET STARTING 


ADDRESS 


70 


HOME : PRINT " 


6809 DISASSEMBLER VI. 0" 


74 PR = 




80 


PRINT : INPUT "HEX 


ADDRESS: ■ ; HAS 


90 


GOSUB 9100: REM CONVERT TO DECIMAL NUMBER 


100 


AD = HD 




105 


INPUT "OUTPUT TO SCREEN (1), OR PRINTER (2) 7", -PR 


106 


IF (PR < 1) OR (PR 


> 2) THEN 105 


110 


REM NOW GO INTO 


LOOP 


115 


0$ = »« 




120 


HW = AD: GOSUB 8000 


: 0$ = HWS + •« ■ 


130 


OP b PEEK (AD) : IF 


((OP = 16) OR (OP = 17)) THEN GOSUB 7500: GOTO 150 


140 


GOSUB 7000 




150 


REM NOW ASSEMBLE 


OPCODE STRING 


170 


IF TVS ■ "H" THEN 


GOSUB 400 


180 


IF TYS = "D" THEN 


GOSUB 500 


190 


IF TY$ = "R" THEN 


GOSUB 1000 


200 


IF TYS = "M" THEN 


GOSUB 1500 


210 


IF TYS = "E" THEN 


GOSUB 2000 


220 


IF TYS = "V" THEN 


GOSUB 2500 


230 


IF TYS = "X" THEN 


GOSUB 3000 


240 


IF TYS = "1" THEN 


GOSUB 4000 


250 


IF TYS ■ "2" THEN 


GOSUB 4500 


260 


IF TYS = "L" THEN 


GOSUB 5000 


270 


IF TYS - "3" THEN 


GOSUB 5500 


280 


GOSUB 6000: REM PRINT OPCODE STRING 


290 


IF PEEK (49152) > 


128 THEN 350 


300 


GOTO 110 




310 


REM **************************************************** 


350 


REM KEYBOARD HALT 




360 


GET QS 




370 


IF QS = CHR$ (27) 


THEN PRINT CHRS (4);"PR#0": PRINT : GOTO 80 


390 


GET Q$: GOTO 110 




400 


REM INHERENT MODE 


420 


OS - OS + CDS + " 


" + MN$: RETURN 


500 


REM DIRECT MODE 


(Continued) 



SINGLE DISK for PET 

M60P0 aim 



The PEDISK II by cgrs MICROTECH is a high-performance 
FLOPPY DISK system for the Commodore PET, Rockwell AIM 
and Synertek SYM. 



+HKJH SPEED 
+HIGH CAPACITY 



+ IBM COMPATIBLE 
+EXPANDABILITY 



Several models are available with either 5% inch or 8 inch 
drives. IBM 3740 data can be exchanged using 8 inch models. The 
system is expandable! Buy a single drive now and add more drives 
later I 

5%" MINI FLOPPY DISK SYSTEMS: 

Model 540-1 Single Drive. Double Density (143K) $460 

Model 540-2 Dual Drive, Double Density (286K) $750 

Model 580-1 Single Drive, Quad Density (286K) $$60 

Model 580-2 Dual Drive, Quad Density (572K) $995 

8" MINI FLOPPY DISK SYSTEMS: 

Model 877-1 Single Drive, IBM standard (295K) $895 

Model 877-2 Dual Drive, IBM standard (590K) $1240 



Low Quantity, Order Now 

G.E. TOLTON System & Software Consultant 

BOX 40, WILLOW GROVE.PA 19090 215-657-7264 




You put What in your 
Apple computer?" 



o^ Investment. Account data. Wills. Phone lists. Sooner or later you will create a file 

v into which you will write some very confidential information. And that's why 

Passage Research has developed a special utility ihai will encrypt thai DOS 3.3 file 

ihrough software routines rather than the expensive (and conspicuous) black-box 

approach. Now you have the means 10 keep your private affairs private. Totallv 

private. 

The bits and bytes of your file will get hopelessly mixed up according to a cipher 

"key" that you keep as secret as you want. Over one hundred million billion 

different keys are available for selection. (This many keys may sound like a lot. bul 

it's typical of a modern encryption process.) 

To make your encrypted file understandable again, all you have to do is reactivate 
ihe appropriate key schedule and run the file back through. It's easy. 

With this utility (and a few casy-to-learri mnemonic commands) you can create a 

personalized encryption algorithm thai is specially tailored to your needs. If you 

want, you can execute successive encryptions with different keys and ihen strip off 

the outer layers, one by one. to reveal the original text. And you can call many 

routines from your own application programs to do "codebook" encryption 

(documentation included). 

Passage Research 

945 Turquoise St. , Suite G 
San Diego, California 92109 

$39.50 postpaid. California residents add 6°/o sales tax. Specify Software Package 

No. U-17 for Apple II or Apple II ■* . Memory requirement: standard 48K. Due to 

time required for checks to clear financial institutions, please allow 3-5 weeks for 

disk delivery. Software documentation shipped immediately upon receipt of 

order. 
(Apple is a registered trademark ot Apple Computer. Inc.) 
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MICRObits 



(Continued from page 56) 

OSI 65D V3.3. Guide 

Contains the bugs, fixes and other data 
OSI didn't tell you about. Increase 
compatibility and run ability between 
65D V3.X and V3.3. Run extended 
utilities under V3.3 and much more. 
Price $14.95 plus $1.00 shipping. 

Buffalo Informational Technologies 

209 Richmond Ave. 

Buffalo, N.Y. 14222 



6800/6809 Software 

Includes compatible single-user, multi- 
user and network-operating systems, 
compilers, accounting and word 
processing packages. Free catalog. 

Software Dynamics 

2111 W. Crescent, Sta. G 

Anaheim, CA 92801 

Librarian/Contour Mapping 

Filing and keyword retrieval system for 
books, articles, excerpts, etc. Produces 
automatic bibliographies. Initial data 
base included. $69.95. Contour Mapping: 
high quality contouring system for 
printer, plotter or CRT. Data and grid 
transformations, trend surfaces, 
residuals. Data manager. Geological and 
geographical software for Apple and other 
systems. 

Geosystems, Inc. 

802 E. Grand River 

Williamston, MI 48895 

(517) 655-3726 

OSI Superboard 
Cabinet and Accessories 

Pre-cut pine cabinet kit $27.95 ppd; 
RS-232 interface kit $9.95 ppd; 600 baud/ 
band kit $8.95 ppd., complete with 
hardware and well-illustrated instruction 
sets. Free catalog of software, hardware, 
Molcx, joysticks, cassettes, kits and more. 

Dee Products 

Department M 

15(3 Birchwood Road 

Lake Marion, IL 60110 

Matrix Operations in Pascal 
on the Apple 

Program matrixcalc provides menu- 
driven matrix calculations (including 
inverse and determinant), matrix scaling, 
and matrix I/O (disk, console or printer) 
($45.00). Easily use matrix operations in 
your Pascal programs with Unit Matnx30 
($45.00). Other Pascal software available. 

Monterey Science and Engineering Co 

177 Webster Street A307 

Monterey, CA 93940 

Computer Covers 

Keep dust and dirt out of your equipment 
with a computer cover. Cover for full 
Apple $11.50, disk drive $4.25, stack 
disk (2) $6.25, monitor (state size) 
$10.25. Send check plus $1.50 postage. 
M.P. Computer Services 
P.O. Box 2396 Encinal Stations 
Sunnyvale, CA 94087 



Listing 2 (Continued) 




510 BT ■ PEEK (AD):AD = AD + 1 : GOSUB 8500 




520 OS - 0$ + CDS + ■ " + BTS + " " + MNS + "S" + BTS 




530 


RETURN 




1000 


REM RELATIVE MODE 




1020 


EA = PEEK (AD):AD » AD + 1 




1030 


BT - EA: GOSUB 8500:05 =■ OS + CDS + " " + BTS + " " + MNS 




1035 


IF EA > 128 THEN EA = EA - 256 




1040 


EA « AD + EA:HW ■ EA: GOSUB 8000:05 = OS + "S" + HWS 




1070 


RETURN 




1200 


REM LONG BRANCH 




1210 


EA = 256 * PEEK (AD) + PEEK (AD + 1 ) : AD - AD + 2 




1220 


HW = EA: GOSUB 8000:05 = OS + CDS + " " + HWS + " " + MNS 




1230 


IF EA > 32767 THEN EA - EA - 65536 




1240 


HW = EA: GOSUB 8000:05 = OS + "5" + HWS 




1250 


RETURN 




1500 


REM IMMEDIATE MODE 




1510 


EA ■ PEEK (AD):AD = AD + 1 




1540 


BT = EA: GOSUB 8500:05 = 0$ + CDS + " ■ + BTS + " " + MNS 
BTS 


+ "#S" + 


1550 


RETURN 




2000 


REM EXTENDED MODE 




2010 


EA » PEEK (AD) * 256 + PEEK (AD + 1):AD - AD + 2 




2020 


HW = EA: GOSUB 8000: OS = OS + CDS + " " + HWS + " " + MNS + 


"$" + HWS 


2040 


RETURN 




2500 


REM INVALID OP CODE 




2510 


OS - OS + CDS + " ???????" 




2520 


RETURN 




3000 


REM INDEXED MODE 




3005 


EAS = "" 




3010 


PB « PEEK (AD):AD « AD + 1 : IF PB < 128 THEN 3900 




3015 


BT = PB: GOSUB 8500:CDS = CDS + " " + BTS 




3020 


PB = PB - 128: RR = INT ( PB / 32):AM - PB - 32 * RR 




3030 


IM = 0: IF AM > 15 THEN IM ■ 1:AM = AM - 16 




3040 


IF IN = 1 THEN MNS ■ MNS t "(" 




3050 


ON AM + 1 GOSUB 3100,3150,3200,3250,3300,3350,3400,3450,3500, 
3600 ,3650,3700,3750,3800,38 50 


3550, 


3070 


IF IM = 1 THEN OS = OS + ")* 




3080 


RETURN 




3100 


REM AUTO INCREMENT BY 1 




3110 


CDS ■ CDS + " ":0S = OS + CDS + MNS + ",": GOSUB 3950:OS ■ 


OS + "+" 


3120 


RETURN 




3150 


REM AUTO INCREMENT BY 2 




3160 


CDS = CDS + " ":0S = OS + CDS + MNS + ","» GOSUB 3950:OS ■ 


OS + "++ 


3170 


RETURN 




3200 


REM AUTO DECREMENT BY 1 




3210 


CDS = CDS + " ":0S ■ OS + CDS + MNS + ",-": GOSUB 3950 




3220 


RETURN 




3250 


REM AUTO DECREMENT BY 2 




3260 


CDS ■ CDS + " ":0S = OS + CDS + MNS + " , — ": GOSUB 3950 




3270 


RETURN 




3300 


REM ZERO OFFSET 




3310 


CDS = CDS + " ":0S = 0$ + CDS + MNS + ",": GOSUB 3950 




3320 


RETURN 




3350 


REM ACC B OFFSET 




3360 


CDS = CDS + " ":0S ■ OS + CDS + MNS + "B,": GOSUB 3950 




3370 


RETURN 




3400 


REM ACC A OFFSET 




3410 


CDS =" CDS + " ":0S » OS + CDS + MNS + "A,": GOSUB 3950 




3420 


RETURN 




3450 


REM NOT VALID 




3460 


OS - OS + CDS + " ?????": RETURN 




3500 


REM 8-BIT OFFSET 




3510 


CDS » CDS + " ":BT = PEEK (AD):AD = AD + 1 : GOSUB 8500 




3520 


CDS - CDS + BTS + " ":EA ■ BT: IF EA > 127 THEN EA ■ EA - 256 




3530 


OS = OS + CDS + " " + MNS + STRS (EA) + ",": GOSUB 3950 




3540 


RETURN 




3550 


REM 16-BIT OFFSET 




3560 


CDS » CDS + " ":HW = PEEK (AD) * 256 + PEEK (AD + 1 ) : AD = AD 
GOSUB 8000 


+ 2: 


3570 


CDS - CDS + HWS:OS ■ OS + CDS + MNS:EA = HW: IF EA > 32767 THEN EA = EA 




- 65536 




3580 


OS ■ OS + STRS (EA) + ",": GOSUB 3950 




3590 


RETURN 




3600 


REM INVALID POST-BYTE 




3610 


OS - OS + CDS + " ???": RETURN 




3650 


REM OFFSET BY D 




3660 


CDS = CDS + " ":0S ■ OS + CDS + MNS + "D,": GOSUB 3950 




3670 


RETURN 




3700 


REM 8-BIT PCR 




3710 


BT = PEEK (AD):AD = AD + 1: GOSUB 8500:CDS = CDS + " " + BTS 


t " 


3720 


EA - BT: IF EA > 127 THEN EA ■ EA - 256 




3730 


OS = OS + CDS + MNS + STRS (EA) + ",PCR" 




3740 


RETURN 




3750 


REM 16-BIT PCR 




3760 


HW = PEEK (AD) * 256 t PEEK (AD + 1 ) : AD = AD + 2 : GOSUB 8000 
S + " " + HWS 


:CDS = CD 


3770 


EA = HW: IF EA > 32767 THEN EA ■ EA - 65536 




3780 


OS - OS + CDS + MNS + STRS (EA) + ",PCR" 




3790 


RETURN 




3800 


rem invalid (Continued) 
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3810 


0$ = OS + " ?????" 


3820 


RETURN 


3850 


REM INDIRECT ADDRESS 


3860 


HW = PEEK (AD) * 256 + PEEK (AD + 1 ) : AD = AD + 2: GOSUB 8000 


3870 


CDS = CDS + " " + HW$:OS = OS + CDS + " " + MNS + "S" + HWS 


3880 


RETURN 


3900 


REM 5-BYTE OFFSET 


3910 


RR = INT (PB / 32):EA = PB - RR * 32: IF EA > 15 THEN EA = EA - 32 


3920 


BT = PB: GOSUB 8500:OS = OS + CDS + " " + BTS + " " + MNS 


3930 


OS = OS + STRS (EA) + ",": GOSUB 3950 


3940 


RETURN 


3950 


ON RR 4- 1 GOTO 3960,3961,3962,3963 


3955 


OS " OS + "?": RETURN 


3960 


OS 1 = OS i + "X": RETURN 


3961 


OS = OS + "Y" : RETURN 


3962 


OS » OS + "U" : RETURN 


3963 


OS = OS + "S": RETURN 


4000 


REM 2-REGISTER TVPE 


4010 


RR = PEEK (AD):AD ■ AD + 1 


4020 


Rl = INT (RR / 16):R2 = RR - 16 * Rl 


4030 


BT ■ RR: GOSUB 8500:OS = OS + CDS + " " + BTS + " " + MNS 


4040 


RR ■ Rl: GOSUB 4200:OS =■ OS + RRS + " , " : RR = R2: GOSUB 4200:OS = 




0$ + R RS 


4050 


RETURN 


4060 


REM ******************************************* 


4200 


REM BREAK RR INTO RRS 


4210 


RR * RR + 1: REM SHIFT INTO RANGE 


4220 


ON RR GOTO 4240,4250,4260,4270,4280,4290,4300,4310,4320,4330,4340, 




4350 


4230 


RRS - "?": RETURN 


4240 


RRS = "D": RETURN 


4250 


RRS - "X": RETURN 


4260 


RRS - "V": RETURN 


4270 


RRS " "U": RETURN 


4280 


RRS - "S": RETURN 


4290 


RRS - "PC": RETURN 


4300 


RRS - "?": RETURN 


4310 


RRS - "?": RETURN 


4320 


RRS - "A": RETURN 


4330 


RRS ■ "B": RETURN 


4340 


RRS - "CC": RETURN 


4350 


RRS " "DP": RETURN 


4500 


REM 1 REGISTER PUSH/PULL 


4510 


EA ■ PEEK (AD):AD - AD + 1:0S =■ OS + CDS + " ":BT = EA: GOSUB 




8500:05 =■ OS + BTS + " " + MNS 


4520 


RPS - "" 


4530 


IF EA > 127 THEN RPS = "PC," + RPS:EA = EA - 128 


4540 


IF EA > 63 THEN RPS = "U," + RPS : EA * EA - 64 


4550 


IF EA > 31 THEN RPS = "Y," + RPS:EA = EA - 32 


4560 


IF EA > 15 THEN RPS ■ "X," + RPS:EA = EA - 16 


4570 


IF EA > 7 THEN RPS » "DP," + RPS:EA = EA - 8 


4580 


IF EA > 3 THEN RPS ■ "B," + RPS:EA = EA - 4 


4590 


IF EA > 1 THEN RPS - "A," + RPS:EA = EA - 2 


4600 


IF EA > THEN RPS - "C," + RPS 


4610 


OS » OS + RPS: RETURN 


5000 


REM LONG BRANCH 


5010 


EA = PEEK (AD) * 256 + PEEK (AD + 1):AD = AD + 2 


5020 


HW - EA: GOSUB 8000:OS = OS + CDS + " " + HWS + " " + MNS 


5030 


IF EA > 32768 THEN EA » EA - 65536 


5040 


HW - AD + EA: GOSUB 8000:05 = OS + "S" + HWS 


5050 


RETURN 


5500 


REM 2-BYTE IMMEDIATE DATA 


5510 


HW - PEEK (AD) * 256 + PEEK (AD + 1 ) : AD = AD + 2 


5520 


GOSUB 8000:05 = OS + CDS + " " + HWS + " " + MNS + "#S" + HWS 


5530 


RETURN 


5540 


REM ******************************************* 


6000 


REM OUTPUT TO SELECTED DEVICE 


6010 


OS • LEFTS (05,17) + " " + RIGHTS (OS, LEN (OS) - 17) 


6020 


IF PR = 1 THEN PRINT OS 


6830 


IF PR = 2 THEN GOTO 6500 


6040 


RETURN 


6050 


REM RETURN TO MAIN LOOP 


6060 


REM ***************************************** 


6500 


REM SEND OUTPUT TO PRINTER IN SLOT »1 


6510 


PRINT CHRS (4);"PR»1" 


6520 


PRINT OS 


6530 


PRINT CHRS (4),-"PR#0 n 


6540 


RETURN 


6550 


REM ************************************** 


7000 


REM GET OP S, MNEMONIC FOR STANDARD 


7010 


SP « 0:BT - OP: GOSUB 8500:CDS = " " + BTS 


7020 


MNS « LEFTS (MNS (OP) ,6) :TYS = RIGHTS (MNS (OP), 1) 


7030 


AD = AD + 1: RETURN 


7500 


REM DETERMINE OP & MNEONIC FOR SPECIAL 


7510 


HW - OP * 256 + PEEK (AD + 1):AD = AD + 2:SP = 1 


7520 


GOSUB 8000:CDS = HWS 


7530 


FOR I - 256 TO 303: IF LEFTS (MN$(I),4) ■ CDS THEN MNS " RIGHTS 




(MNS (I), 7) 


7540 


NEXT I 


7550 


TYS = RIGHTS (MNS,1):MNS = LEFTS (MNS, 6) 


7560 


RETURN 


7570 


REM ********************************************* 



MICRObits 



(continued) 



Priced Right Apple Clock 

Clock maintains in 16 memory address: 
MTH, DOM, WKD, and TOD to 1/10 
seconds. Also maintains leap year and 
provides three (3| possible repeated or 
software set timed interrupts. Battery 
backed up. Priced right with 
documentation at $95.95, less batteries. 

Buchanan 

1870-B NW 59th Avenue 

Sunrise, FL 33313 

(305) 739-8160 

Expand Apple Memory! 

Memory boards from 16K to 256K by 
Microsoft, Saturn, Legend, SVA, etc. at 
lowest prices. Also, 8" floppy drives and 
hard disks by LOBO, CORVUS, and SVA 
at big discounts! 

Connecticut Informations Systems 

218 Huntington Road 

Bridgeport, CT 06608 

(203| 579-0472 

HTS KIM/AIM/OSI C1P Products 

Timestack Operating System implements 
programmable, time-based controller. 
Handles programming event sequences, 
then controls performance of events. 
User-written event subroutines can 
handle I/O processing like data 
acquisition, power switching. Extensive 
documentation. Software manuals, 
$30.00. Specifications, $1.00. Catalog, 
free. 

Hunter Technical Services 

P.O. Box 359 

Elm Grove, WI 53122 

Free Classified Ad 

for you in Consumer Electronics 
Marketplace. Buy, sell, trade 
microcomputers, software, video, hifi. 
Send your ad and $6.00 for subscription: 

Consumer Electronics Marketplace 

Box 86E 

Highland Mills, NY 10930 

OSI Superboard II, C1P 

Star Chase: dodge the asteroids and try 
to get to your base, but watch out for the 
critters from hyper-space! Runs under 
4K. $4.95. Send for free catalog with 
other programs. 

Swany's OSI Software 

2652 37th West 

Seattle, WA 98199 

(206| 282-7376 



OSI Software 

Debug lets you trace and breakpoint your 
machine code programs. Universe plays 
like Cobra Copter with keyboard or 
joystick. Edit-All has scroll window 
output, full cursor control and dynamic 
insert/delete. All in machine code. For 
C1P, C2-4 computers. 

DMP Systems 

319 Hampton Blvd. 

Rochester, NY 14612 
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Borgeson Listing 2 (Contin 


ued) 






















8000 


REM 


PUT HW INTO HEX HWS 
















8010 


WH = 


INT (HW / 256) 


:WL - HW 


- 256 * 


WH 












8020 


BT = WH: GOSUB 8500: 


HWS =■ BTS 














8030 


BT = WL: GOSUB 8500: 


HWS ■ HWS + BTS 














8040 


RETURN 




















8500 


REM 


PUT BT INTO HEX BTS 
















8510 


NH - 


INT (BT / 16) : 


NL - BT 


- 16 * NH 












8520 


BTS = 


MIDS 


(HS.NH i 


1,1) + 


MIDS (HS,NL + 1 


,1) 










8530 


RETURN 




















9000 


REM 


READ 


DATA 


















9010 


RESTORE 




















9020 


FOR I 


= TO 303: READ MNS(I): NEXT 


I 












9030 


RETURN 




















9100 


REM 


CONVERT HEXT 


TO DECIMAL 














9110 


HD » 






















9120 


FOR I 


= 1 TO LEN 


HAS) 
















9130 


HC = 


ASC ( 


MIDS (HAS, 1,1)) 


- 48: IF 


HC > 9 


THEN HC 


- HC - 7 








9140 


HD - 16 * (HD + HC) 


















9150 


NEXT 


I 




















9160 


HD » HD / 16 


: RETURt 


















9500 


REM 


MNEMONIC DAW 


















9510 


DATA 


NEG 


D,*** 


V,*** 


V.COM 


D.LSR 


D,*** 


V.ROR 


D.ASR 


D 




9520 


DATA 


ASL 


D.ROL 


D,DEC 


D,«»* 


D,INC 


D,TST 


D.JMP 


D.CLR 


D 




9530 


DATA 


*** 


V, *** 


V,NOP 


H.SYNC 


H,*** 


V. *** 


V,LBRA 


L.LBSR 


L 




9540 


DATA 


**# 


V.,DAA 


H.ORCC 


M,»*» 


V,ANDCC 


M.SEX 


H.EXG 


1,TFR 


1 




9550 


DATA 


BRA 


R..BRN 


R,BHI 


R,BLS 


R,BCC 


R.BCS 


R.BNE 


R,BEQ 


R 




9560 


DATA 


BVC 


R , BVS 


R,BPL 


R.BMI 


R,BGE 


R,BLT 


R,BGT 


R,BLE 


R 




9570 


DATA 


LEAX 


X.LEAY 


X,LEAS 


X.LEAU 


X.PSHS 


2,PULS 


2,PSHU 


2.PULU 


2 




9580 


DATA 


*** 


V.RTS 


H.ABX 


H.RTI 


H.CWAI 


2,MUL 


H,*** 


V.SWI 


H 




9590 


DATA 


NEGA 


H,*** 


V, *** 


V,COMA 


H.LSRA 


H,*** 


V.ROR A 


H.ASRA 


H 




9600 


DATA 


AS LA 


H,ROLA 


H.DECA 


H,*** 


V.INCA 


H.TSTA 


H,*«» 


V,CLRA 


H 




9610 


DATA 


NEGB 


H,*«* 


v f *** 


V,COMB 


H.LSRB 


H,«»* 


V,RORB 


H,ASRB 


H 




9620 


DATA 


AS LB 


H,ROLB 


H.DECB 


H,*** 


V.INCB 


H,TSTB 


H,*** 


V,CLRB 


H 




9630 


DATA 


NEG 


X,*** 


V, *** 


V,COM 


X.LRS 


X,*** 


V,ROR 


X.ASR 


X 




9640 


DATA 


ASL 


X,ROL 


X,DEC 


X,*** 


V,INC 


X,TST 


X.JMP 


X,CLR 


X 




9650 


DATA 


NEG 


E,«** 


v,*** 


V,COM 


E.LSR 


E,*** 


V,ROR 


E,ASR 


E 




9660 


DATA 


ASL 


E,ROL 


E,DEC 


E,*** 


V, INC 


E,TST 


E,JMP 


E,CLR 


E 




9670 


DATA 


SUBA 


M.CMPA 


M.SBCA 


M,SUBD 


3,ANDA 


M,BITA 


M,LDA 


M,*** 


V 




9680 


DATA 


EORA 


M.ADCA 


M,ORA 


M,ADDA 


M.CMPX 


3,BSR 


R,LDX 


3,*** 


V 




9690 


DATA 


SUBA 


D.CMPA 


D,SBCA 


D.SUBD 


D.ANDA 


D,BITA 


D,LDA 


D,STA 


D 




9695 


DATA 


EORA 


D.ADCA 


D.ORA 


D.ADDA 


D,CMPX 


D.JSR 


D.LDX 


D,STX 


D 




9700 


DATA 


SUBA 


X.CMPA 


X.SBCA 


X,SUBD 


X.ANDA 


X.BITA 


X,LDA 


X,STA 


X 




9710 


DATA 


EORA 


X,ADCA 


X,ORA 


X.ADDA 


X,CMPX 


X.JSR 


X,LDX 


X.STX 


X 




9720 


DATA 


SUBA 


E,CMPA 


E.SBCA 


E.SUBD 


E.ANDA 


E.BITA 


E.LDA 


E.STA 


E 




9730 


DATA 


EORA 


E,ADCA 


E.ORA 


E.ADDA 


E,CMPX 


E.JSR 


E.LDX 


E,STX 


E 




9740 


DATA 


SUBB 


M.CMPB 


M.SBCB 


M.ADDD 


3.ANDB 


M.BITB 


M,LDB 


M,*** 


V 




9750 


DATA 


EORB 


M,ADCB 


M,ORB 


M.ADDB 


M,LDD 


3,*** 


V.LDU 


3,*** 


V 




9760 


DATA 


SUBB 


D,CMPB 


D,SBCB 


D.ADDD 


D,ANDB 


D.BITB 


D.LDB 


D,STB 


D 




9770 


DATA 


EORB 


D.ADCB 


D,ORB 


D.ADDB 


D,LDD 


D,STD 


D.LDU 


D,STU 


D 




9780 


DATA 


SUBB 


X,CMPB 


X,SBCB 


X.ADDD 


X.ANDB 


X,BITB 


X.LDB 


X.STB 


X 




9790 


DATA 


EORB 


X.ADCB 


X,ORB 


X.ADDB 


X.LDD 


X.STD 


X,LDU 


X,STU 


X 




9800 


DATA 


SUBB 


E.CMPB 


E.SBCB 


E.ADDD 


E.ANDB 


E.BITB 


E.LDB 


E,STB 


E 




9810 


DATA 


EORB 


E,ADCB 


E.ORB 


E.ADDB 


E,LDD 


E.STD 


E,LDU 


E,STU 


E 




9820 


DATA 


1021LBRN L, 


L022LBHI 


L.1023LBLS L, 


024LBCC 


L.1025LBCS L, 


1026 






LBNE 


L,1027LBEQ L 


















9830 


DATA 


1028LBVC L, 


1029LBVS 


L.102ALBPL L, 


02BLBMI 


L.102CLBGE L, 


102D 






LBLT 


L,102EL8GT L 


102FLBLE 


L 














9840 


DATA 


103FSWI2 H, 


L083CMPD 


3.108CCMPY 3, 


08ELDY 


3.1093CMPD D, 


109C 






CMPY 


D,109ELDY D 


109FSTY 


D 














9850 


DATA 


10A3CMPD 


< , 1 0ACCMPY X , 1 0AELDY 


(,10AFSTV 


X,10B3C ■;: 


E, 10 






BCCMPY 


E.10BELDY 


E.10BFSTY E 














9860 


DATA 


10CELDS 3, 


10DELDS 


D.10DFSTS D, 


10EELDS 


X,10EFSTS 


10FE 






LDS 


E.10FFSTS E 


















9870 


DATA 


113FSWI3 H, 


U83CMPU 


3.118CCMPS 3, 


1193CMPU 


D.119CCMPS D, 


11A3 






CMPU 


X,11ACCMPS X 


1183CMPU 


E,11BCCMPS E 












9880 


DATA 


"LAST 


MNEMONIC" 
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Write For MICRO! 

We want to begin including applications-oriented articles in MICRO. How are you using your microfs) 
these days? What, in your view, is the best interface between software and user, and why? Do you have 
any thoughts about databases and/or networking? Are you familiar with the 68000 chip? What would you 
like to write for or read in MICRO? 

We want to provide prospective authors with any information and support they may need, promptly. 
We want MICRO to be the preferred information exchange for a wider range of computerists. If you have 
ideas for articles — or just ideas you would like to discuss — please write or call Laurence Kepple, Senior 
Editor at MICRO, P.O. Box 6502, Chelmsford, MA 01824; (617) 256-5515. 
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Professional proofreading 

on the APPLE II Computer 
\ is now a reality 
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THE APPLE SPELLER fills the void 

that has consistently kept the large 
variety of excellent word processing 
packages for the Apple II Computer 
from approaching the power of a 
dedicated work processor. Finally, 
the first professional quality spelling 
verification program is available for 
the Apple II. The Apple Speller will 
certainly be the standard against 
which all other similar programs are 
compared. 

Trie Apple Speller interfaces to the 
most popular Apple word processors, 
including Applewriter, Apple Pie, 
Executive Secretary, Letter Perfect, 
Magic Window, and Superscribe II, 
just to name a few. In fact, The Apple 
Speller can analyze the output of any 
editor that writes a standard Apple 
binary or text file to a diskette. In 
addition to this flexibility, the per- 
formance of The Apple Speller will 
astound the microcomputer world. 

The Apple Speller is supplied with 
a 30,000+ word dictionary on a 
single SW" diskette with additional 
space to easily add another 8,000 
words to suit your individual needs. 



The Apple Speller has built-in utilities 
to maintain the dictionary diskette. 
You can readily add words, delete 
words, and create an unlimited num- 
ber of modified and/or new diction- 
aries for specific application. 

The Apple Speller is unbelievably 
fast. The first pass reads your docu- 
ment and collects all the words it 
contains at a rate of 5,000 words 
per minute. Next, the words are 
compared to the dictionary for spell- 
ing errors at the incredible speed of 
50,000 words per minute. Finally, all 
misspelled words are marked as 
such in your document with a rate 
of 1,000 words per minute. This 
translates to proofreading a 10 page 
document in 1 minute if there are no 
spelling mistakes and 2 minutes, 15 
seconds for an unlimited number of 
spelling errors. 

Numerous options are provided 
throughout the program to enable 
you to completely control all activi- 
ties of The Apple Speller. These 
include the ability to ignore both 
control codes and formatting com- 
mands, an alphabetical listing of 



either mispelled words or all the 
words in your document along with 
usage frequencies, multiple options 
for the action taken with each 
misspelled word, and much, much 
more! A verification mode is pro- 
vided to allow you to examine and 
dispense with misspelled words 
while viewing them in the actual 
context in which they appeared in 
your file. 

The Apple Speller requires an 
Apple ll/Apple II + equipped with 48K, 
DOS 3.3, and 1 or 2 disk drives. Two 
disk drives are required to delete or 
add words to the dictionary. 

The Apple Speller is being intro- 
duced at the incredible price of 

$75.00! 



E 



Sensible Software 

6619 Perham Drive Dept. MO 

West Bloomfield, Michigan 48033 

(313)399-8877 

Visa and Mastercard Welcome 

Please add $1 .25 postage and 

handling per diskette 
Please specify program desired 



APPLE is a registered trademark ol APPLE Computer Company Registered Trademark of DIGITAL RESEARCH CORP Registered Trademark ol MUSE SOFTWARE 
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SOFTWARE PRICE 
BREAKTHROUGH! 



Join American Software Club and get state-of-the-art name 
brand software at the lowest price it will probably ever be. 



I want to tell you about the most excit- 
ing development that has ever happened 
to your computer. Then I want to extend 
an invitation. Neither the development or 
the invitation need cost you a cent. 

• It's not a new terminal. 

• It's not any kind of peripheral. 

• It's not a new language. 

• It's all of these. 

It's a club. A club exclusively for peo- 
ple who live and breathe computers, like 
you— and me. 

BUILD A SOFTWARE 
LIBRARY THAT WILL 
EXPAND YOUR 
COMPUTER'S CAPABILITIES 
TO THE LIMITS 
OF YOUR IMAGINATION. 

Each month we bring you the finest 
and boldest concepts in computer soft- 
ware from manufacturers all over the 
world, from categories that include 
education and business to entertain- 
ment and home utilities. 

Out of thousands of programs avail- 
able, we select those that make your 
computer do more of what you bought 
your computer for. Programs that keep 
your computer working throughout the 
day instead of gathering dust on a desk. 

ASC keeps your computer function- 
ing and expanding by supplying the vital 



THE ASC GUARANTEE 

ASC promises that mem- 
ber's prices are the lowest 
available. If, within 30 
days of your purchase, 
you find a lower, nation- 
ally advertised price, then 
we will gladly credit your 
account with the differ- 
ence. 



software resources necessary for its 
growth. Software for the business 
owner, educator, hobbiest, the family. 
Software that will continually keep your 
hardware paced with state of the art 
technology. With an ASC membership 
you will be assured that your equipment 
is never rendered obsolete. 



OUR NO-OBLIGATION 
CHARTER INVITATION 

When you become a charter member 
you get; 

• Free lifetime membership. Charter 
members will never pay a penny in 
membership fees 

• Our informative and very candid 
newsmagazine 

• Discounts on all software programs 

• Discounts on major brands of hard- 
ware and supplies 

• Additional discounts for recommend- 
ing new members 

• Software updates as they become 
available 

• BONUS. Free buy, sell, or swap ad 
in our newsmagazine (on a space- 
available basis). A real moneysaver. 

NO MINIMUM PURCHASE 
REQUIREMENTS EVER. 



DISCOUNTS. 
PROMPT SHIPMENTS. 

No more searching through magazine 
ads and paying top dollar. You save 
every time you buy. Save on software, 
hardware, books ... all computer sup- 
plies. For example, next month you can 
purchase name brand blank diskettes 
that the "discounters" sell for $3.50. Our 
price-$2.50. That's saving $10 per box. 



TYPICAL MEMBERS' 




SAVINGS 






Alkemstone 

trom Dakin5 


regular member's 
price price 

39.95 27.95 


you 
save 

30% 


Adventure 12 






from Adventure 
International 


19.95 13.95 


30% 


Disk Doctor frorr 
SuperSoft 


100.00 79.95 


20% 


lago from 
DataSoft 


19.95 14.95 


25% 


Nemesis from 
SuperSoft 


40.00 29.95 


25% 


FOR EXTRA FAST SERVICE 



Call or send in the coupon now. Mail today. 



Call toll-free 800-431-2061 

24 hours a day, seven days per week 
and your membership materials will 
be sent out pronto. 



AMERICAN SOFTWARE CLUB, INC. 

MillWOOd, N.Y. 10546 Call toll-free 800-431-2061 

I can't wait. Please send me my membership materials and enroll me in 
the American Software Club as outlined in this ad. I understand that 
all future purchases are at low member's prices and no minimum 
purchase is ever required. 



My computer is 



Storage media 



model and ft 



cassette or disk (specify size). 



I am primarily interested in 

Business 

Entertainment 

Household 

Education 

All areas 



Address 

City/State/Zip. 



..J 
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OSI COMPATIBLE HARDWARE 

IO-CA10X SERIAL PORT «12S 

ACIA based HS-232 serial printer port. DIP SWITCH selectable baud rates of 300-9600. 
Handshaking (CTS) input line Is provided to signal the computer when the printer buffer 
is full. Compatible with OS«5U VI. 2 and OS45D . 

IO-CA9 PARALLEL PORT $17$ 

Centronics Standard Parallel printer Interface for OSI computers. The card comes com- 
plete with 10 ft. of flat ribbon cable. Compatible with OS-65D and OS65U software. 
IO-CA8D DIABLO PARALLEL PORT $175 

DIABL0 1 2 BIT WORD Parallel port for use with word processor type printers. Complete 
with 10 ft. cable. Compatible with OS-65U software. 

IO-LEVEL 3 MULTMJSER EXPANSION S4S0 

Provides 3 printer interfaces currently supported by OSI-Serlal, Centronics Parallel, 
Diablo Parallel. 4K of memory at D000 for Multi-user executive. A Port serial cluster. The 
LEVEL 3 card allows expansion of an OSI C3 machine up to 4 users with appropriate ad- 
ditional memory partitions. 

24MEM-CM9...$3W 18MEM-CM9...$300 8 MEM-CM*... $210 

24K memory card is available at 3dlfferent populated levels. All cards are fully socketed 
for 24K of memory. The card uses 21 14-300ns chips. DIP SWITCH addressing is provided 
in the form of one 16K block and one SKtolock. Also supports DIP SWITCH memory parti- 
tion addressing for use in multi-user systems. 

FL470 FLOPPY DISK CONTROLLER $1*> 

OSI-Type floppy disk controller and real time clock. Will Support 5'/« ■ or 8". Single or 
double-sided drives. Requires drives with separated data and olock outputs. 
BIO-16O0 BARE 10 CARD $50 

Super I/O Card. SupportsSK of 21 14 memory In two DIPSWITCH addressable4K blocks, 
2 18 Bit Parallel Ports may be used as printer interfaces, 5 RS-232 Serial Ports with CTS & 
RTS handshaking. With manual and Molex connectors. 

BMENKMBARE MEMORY CARD (66 

Bare 24K memory card, also supports OSI-type real timeclock and floppy disk controller. 
With manual and Molex connectors. 

•98 PROTOTYPE CARD MS 

Prototype board holds 96 14 or 16 pin IC's. Will also accommodate 18, 24, or 40 pin IC'a. 
Row and column zone markings, easy layout. %,' epoxy glass P.C. board. 
C1PEXP EXPANSION INTERFACE MS 

Expansion for CI P600 or 610 boards to the OSI 48 Pin Buss. Uses expansion socket and 
interface circuitry to expand to 48 Pin Backplane. Requires one slot in backplane. 
BP-580 BACKPLANE $47 

Assembled 6-slot backplane with male Molex connectors and termination resistors. 
DSKSW DISK SWITCH $2* 

A circuit when added to OSI Minifloppy systems extends the llfeof drives and media Ac- 
complish this by shutting off Minifloppy Spindle motor when system is not accessing 
the drive. Complete KIT and manual. 



DAN 



MICRO 

INC. 

3684 N. Wells Street Ft. Wayne, Indiana 46808 
219/485-6414 

TERMS: Check or money order Add $2 Shipping, Outside U.S. add 10%. 
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PET/CBM 

2000/3000/4000 Series 

not using a CRT, or display controller- chip 
S275.00* 



Select either 
BO x 85 or 40 x ZS 



On The 
Built-in 
Display 



From the keyboard or program 

Displays the full, original character set 

Available from your local dealer or: 
EXECOM CORP. 

1 SOI Polaris Ave. 
Racine. Wl 53404 
Ph. 414-632-1004 

♦ Plus installation charge of E75.DO 



Available only for Basic 3.0 S Basic 4.0 

PETS CBM Th a 

trademark of Commodore Business Machines 



The Graphics Family. 



The most versatile, 
easiest-to-use 
graphics available 
for your Apple II. 



The A2-3D1/3D2 with A2-GE1 Graphics Editor package 
lets you put simultaneous multiple graphic images on 
your screen . . . where you want, the size you want, in 
your choice of orientation, complete with upper and 
lower case text. Because the most important part of 
your computer system isyou. $119.85 

MfeLOGIC 

Communications Corp. 
713 Edgebrook Drive 
Champaign, I L 61820 
(217) 359-8482 
Telex: 206995 




Map of the Universitybf Illinois campus 
constructed with A2-GE 1 and A2-3D2 



Apple' is the registered trademark of Apple Computer Inc. 
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PET Vet 



By Loren Wright 

COMAL is a relatively new language 
developed in Denmark. The PET/CBM 
version is called "CBM COMAL 80," 
and was written especially for Commo- 
dore (Europe, not U.S.] by Mogens 
Kjaer. The name COMAL is an 
acronym for COMmon Algorithmic 
Language. It began as a few extensions 
to BASIC, but, as more was added, it 
became apparent that COMAL should 
stand alone. COMAL does indeed have 
a lot in common with BASIC, but the 
influence of Pascal is equally apparent. 
The intent was to combine the best 
features of BASIC (easy to learn, easy to 
program, interactive with the best 
features of Pascal, more powerful, easy- 
to-follow structured program flow). 
COMAL's creators have accomplished 
that goal. 

Program Editing 

Editing of COMAL programs is very 
similar to BASIC. However, there are 
convenient RENUMber, AUTO- 
number, and DELete commands. It is 
also possible to ENTER lines from a 
disk file. This makes building pro- 
cedure libraries very easy. 

The successively indented listing 
format, which shows the structure of a 
program, is provided automatically. 

Program Operation 

The COMAL disk includes two ver- 
sions of the interpreter. One consists of 
the whole interpreter in one program 
file. The other splits it into "input" 
and "execute" modules. The combined 
version is easier to use, particularly 
when learning the language, but the 
split version allows much longer pro- 
grams (15,358 bytes vs. 4949) and in- 
cludes the PRINT USING function. 

Features of COMAL 

Variables: 

COMAL supports numerical, string, 
and Boolean variables, as well as multi- 
dimensional arrays of numbers, and 
one-dimensional arrays of strings. 
There is apparently no distinction be- 
tween floating point numbers and in- 



tegers (and their different memory re- 
quirements). Names may be up to 16 
characters, all of which are significant. 
String manipulation is simpler than it 
is in BASIC, but just as powerful. 

Program Flow: 

Procedures in COMAL work 
similarly to those of Pascal. They are 
called with an EXEC statement or as 
part of a numerical expression. The 
structure supports both one-way and 
two-way parameter passing, and a pro- 
cedure may be CLOSED to make all of 
its internal variables local. By assigning 
a value to the procedure name before 
exiting, the procedure may be used as a 
function in an expression. 

The best way to determine the 
power of a language is to examine how 
it makes decisions. PET BASIC has two 
decision-making structures: IF... THEN 
and ON... GOTO (or GOSUB). You can 
use these to solve just about any pro- 
gramming problem, but often the pro- 
gram flow becomes complex and error- 
prone. COMAL extends the IF... THEN 
structure to include ELSE and ELIF 
( = ELSE IF) functions. ON.. .GOTO 
and ON... GOSUB are replaced by the 
CASE structure, which, unlike many 
Pascal implementations, includes an 
ELSE capability. 

COMAL has three structures that 
allow controlled repetition of a pro- 
gram segment. FOR... NEXT works ex- 
actly as it does in BASIC, except that it 
is possible to have a one-line loop 
without a NEXT. REPEAT... UNTIL 
allows a program segment to be re- 
peated until a condition (tested at the 
end of the segment) is satisfied. DO 
... WHILE... ENDWHILE allows repeti- 
tion of a program segment until a con- 
dition (tested at the beginning of the 
segment) fails. 

There is also a GOTO in COMAL, 
but it is used only to transfer control to 
a label, which is defined with a name 
followed by a colon on a line by itself. 

Other Features 

COMAL's PRINT function is 
similar to BASIC'S, but it allows a little 
more flexibility. PRINT USING, imple- 
mented only in the split version of the 
interpreter, does a good job of format- 
ting numerical data. 

Most of the familiar BASIC built-in 
functions are supported. The RND 
function generates pseudo-random in- 
tegers over a specified range. 



Evaluation 

COMAL is an excellent com- 
promise between Pascal and BASIC. It 
is easy to learn, and the system is easy 
to operate. The gain over BASIC in 
structure, power, and readability is 
considerable. Few programmers really 
need all of the power of Pascal and 
some versions are actually less power- 
ful than COMAL. The exacting nature 
of Pascal's syntax makes programming 
more difficult and tedious. 

If you work on a number of different 
computers, you will find that knowl- 
edge of COMAL is not particularly 
transportable, but that may change. 
The price is right, and I recommend 
getting a copy, if only to get a taste of 
high-level programming. 

The Future of COMAL 

Much of the future of COMAL is in 
the hands of Commodore. Rumor has it 
that COMAL will eventually replace 
BASIC as the language supplied with 
CBM, PET, and VIC computers. There 
are already ROM versions in existence 
for nearly every Commodore machine, 
and there is an enhanced version for the 
8096 which is extremely powerful. 
There is talk of a prototype color ver- 
sion in England, running in a 40-column 
VIC. As yet, none of this has been con- 
firmed by Commodore, US. 

Where to Get COMAL 

COMAL was originally distributed 
(by arrangement with Commodore) by 
the COMAL Users' Group (5501 
Groveland Terrace, Madison, WI 
53716). Although they are no longer 
distributing the COMAL Starter Kit, 
they are still a good source of informa- 
tion. Many users' groups have the 
COMAL interpreters already in their 
libraries, since the disk versions were 
placed in the public domain by Com- 
modore. If your group doesn't have it, 
contact another group or the COMAL 
Users' Group. 

Most of the information on COM- 
AL is published in Europe. Ellis Hor- 
wood Ltd. (Market Cross House, 
Cooper Street, Chichester, West 
Sussex, P019 1EB, England) has two 
books available: Structured Program- 
ming with COMAL-80 by Roy Ather- 
ton and a tutorial by Borge Christ- 
enscn. Len Lindsay's COMAL Hand- 
book should be available soon from 
Reston Publishing Co. (Reston, VA). 

JMCftO 
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CBM owners 
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and biggest Skyles 
catalog, hot off the 
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and another 19 
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you your very own 
copy within the last 
few weeks, call us at 
(800) 227-9998 
(unless you live 
in California, in 
which case call 
(415) 965-1735. 



From Skyles 
Electric Works, the 
oldest and largest 
professional 
specialists in the 
business. 
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Skyles Electric Works 

231 -E S. Whisman Road 
Mountain View, California 94041 
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Name: Accounting 

System (Integrated 
portion of EIS 
General Acct. 
System) 
System: OS-65U 
Memory: 48K 
Language: BASIC 
Hardware: Ohio Scientific 

C-2 or C-3 series 
Description: Keeps detailed 
records of all transactions and 
generates income statements 
and balance sheets to provide 
information on fiscal activities. 
Price: $1,500.00 includes 3 
program disks and a step-by- 
step user's manual 
Author: Electronic Information 

Systems, Inc. 
Available: 
Electronic Information 

Systems, Inc. 
P.O. Box 5893 
Athens, GA 30604 
(404) 353-2858 



Name: Snow Watch 

System: Apple II Plus 
Memory: 48K 
Language: CP/M 
Hardware: Disk II, Printer 
Description: Computerized 
school and business closings 
for use in a severe weather 
emergency by radio and televi- 
sion stations. Schools phone in 
unique code numbers to tell 
whether they are open or 
closed. Program completely 
organizes status reports and 
messages. Prints full or update 
reports for on-air use. 
Price: $350.00 includes 

diskette, documentation, and 

consultation 
Author: Roger Skolnik 
Available: 

Media Service Concepts, Inc. 

1713 N. North Park 

Chicago, IL 60614 



Name: Arnold 

System: Apple II or Apple 

II Plus 
Memory: 48K 
Language: Exended BASIC 
Hardware: MMI DAC board 
with Apple II or 
Apple II Plus 
Description: Designed to teach 
tone recognition and melodic 
memory skills, Arnold asks 
you to recall and enter the 



tones of an ever-increasing 
melody by using solfeggio 
syllables or scale degree 
numbers. Utilizes patterns 
from 95 graded melodies with 
five levels of skill difficulty, 
beginning to very difficult. Ar- 
nold keeps your progress 
record on the disk. 
Price: $190.00 includes pro- 
gram diskette and manual 
Author: J. Timothy Kolosick 
Available: 
Micro Music, Inc. 
P.O. Box 386 
Normal, IL 61761 
(309) 452-6991 

Name: Galactic Chase 

System: Atari 800/400 
Memory: 16K 
Language: Assembly 
Description: Fast moving at- 
tack and destroy game featuring 
several skill levels to challenge 
accomplished gamesmen as 
well as beginners. Galactic 
Chase utilizes the extensive 
graphics capabilities of the 
Atari computer. Colorful crea- 
tures attack from the far 
reaches of space. The game is 
designed for one or two 
players, captains of a star ship 
that is the last defender of 
space. 
Price: $24.95 cassette 

$29.95 diskette 
Available: 

Spectrum Computers 

26618 Southfield Rd. 

Lathrup Village, MI 48076 

(313) 559-5252 



Name: Edit All 

System: OSI Disk Systems 

Memory: IK at top of 

memory 
Language: Machine 
Hardware: OSI C1P MF, C2-4 

MF 
Description: Edit All is a full 
screen editor for OSI com- 
puters. It replaces the standard 
I/O routines to allow the user 
to edit any program line that is 
on the screen. As editing takes 
place, the line is dynamically 
expanded or contracted. Edit 
All supports a scroll window 
screen handler that allows you 
to define where on the screen 
you want your output to go. 
All output to the screen is via a 
window whose length, height 



and width are all user- 
changeable. Full cursor control 
is supported along with an in- 
stant screen clear. Edit All 
works with OS65D BASIC and 
Assembler. 

Price: $19.95 includes 5Yt" 

disk, documentation 
Author: Dave Pompea 
Available: 

DMP Systems 

319 Hampton Blvd. 

Rochester, NY 14612 

Name: EZAID 

System: PET/CBM 
Memory: 8K - 32K 
Language: Assembler 
Hardware: New ROMs, 

cassette or disk, 
40- or 80-column 
screen 
Description: 4K EPROM chip 
which is available for any free 
socket and is intended for use 
with the EZASM chip. Any 
area of memory, even if not the 
execution address, may be 
disassembled in two passes, 
producing source code which 
is 100% compatible with the 
EZASM Assembler. User- 
defined labels may be included 
for clarity and you can make 
modifications to the source 
code generated as you wish. 
FIND function with optional 
replacement field and no 
restrictions as to BASIC 
keywords or whatever. AUTO 
line numbering. Renumber 
EZASM source program. 
Delete a block of lines. Repeat 
keys. 

Price: $80.00 including ship- 
ping and instructions. 
Author: Milton B. Bathurst 
Available: 
DataCap 

73 Rue du Village 
4545 Feneur 
Belgium 



Name: Statistics with 

Daisy 

System: Apple II 
Memory: 48K 
Language: Applesoft ROM 
Hardware: Apple II, disk 

drive with DOS 

3.3 
Description: Daisy offers a full 
range of statistical capabilities 
and excels on user conve- 
niences. Statistics with Daisy 
is a statistical analysis package 
suitable for business, scien- 
tific, and social science appli- 
cations. Some of its features 
include: full user assistance 
facilities HELP and INFO, 
math and time-series trans- 
forms, Hi-Res plots, basic 



statistics (mean, standard 
deviation, etc.), correlations, 
multiple regression (6 different 
procedures), model testing and 
evaluation, nonparametric 
statistics, hypothesis testing, 
and analysis of variance. Users 
can add their own programs as 
new Daisy commands. Disk 
commands exist to save, enter, 
examine, and overlay dozens 
of variables or hundreds of ab- 
breviations. Data entry is 
through a "window" view into 
the data table. 
Price: $79.95 includes disk and 

manual 
Author: Kevin C. Killion 
Available: 

Rainbow Computing 

19517 Business Center Dr. 

Northridge, CA 91324 



Name: Merlin Dial/Data 

System: Apple II and Apple 

II Plus 
Memory: 48K 
Language: BASIC (Applesoft) 
Hardware: Apple II or Apple 
II Plus, two disk 
drives, micro 
model 
Description: Allows Apple 
user immediate access to 
Merlin data base which has 
been used by investment pro- 
fessionals for more than a 
decade. Gives daily and 
historical price information for 
all securities, options and 
commodities on all major ex- 
changes. Automatic access and 
file handling. All prices are up- 
dated daily and system is 
Compu-trac compatible. Also 
available to other micro users 
who wish to write their own 
programs. 

Price: $50 Apple software, 
monthly usage charges based 
on use of daily pricing ser- 
vice. Includes manual, data 
base creation and mainte- 
nance plus automatic access 
to Merlin DIAL/DATA time 
sharing system for prices. 
Available: 
Remote Computing Corp. 
Dept. MS 

1044 Northern Blvd. 
Roslyn, NY 11576 
(516) 484-4545 



Name: Mail Mate 

System: Apple II Plus 
Memory: 48K 
Language: BASIC (Applesoft) 

and Assembly 
Description: Mail Mate is a 
mail-merge system that can 
operate with the Magic Win- 
dow word processing system, 
or by itself as a stand-alone 
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mailing/phone list system. 
Highlights are: quick sort; 
string search; 10 selection 
fields; flexible specification of 
selection codes for printing 
and logical ANDing between 
selection fields; operates on a 
single disk drive; prints one or 
two addresses across; flexible 
salutation specification; all 
fields fully edited. 
Price: $85.00 Canada, $70.00 

U.S. includes 13- and 

16-sector versions plus 

30-page user manual 
Author: Managematics Ltd. 
Available: 

Evolution Software Inc. 

1632 Bathurst Street 

Toronto, Ontario M5P 3J5 

(416) 787-3441 



Name: Pascal File 

Exchange (PFX) 
System: Apple II 
Memory: 48K RAM 
Language: Pascal 
Hardware: Apple II, Language 
Card, 2 disk 
drives, Micro- 
modem II or 
Coupler and Apple 
COM Card 
Description: PFX is a Pascal 
File Transfer program with a 
novel feature — it transmits a 
copy of itself to another Apple 
even though initially the other 
Apple does not have any Pascal 
software to receive data from 
its modem. Thereafter, the 
operators may type messages 
in a "chat" mode, inspect the 
local and remote directories, 
schedule and exchange one or 
more files and initiate the ex- 
ecution of local and remote 
Pascal code modules. 
Price: $45.00 includes disk 
with executable Code Files 
and formatted Documenta- 
tion File 
Author: Graeme Scott 
Available: 
Arrow Micro Software 
1 1 Kingsford 
Kanata, Ontario, Canada 
K2K 1T5 
(613) 592-4609 



Name: Multi-Tasking 

Kernel 

System: Any 
Memory: 100 bytes 
Language: Source Assembly 
Hardware: 8085, Z-80, 6502, 

6809, 6800 
Description: The Multi- 
Tasking Kernel is a valuable 
tool for systems integrators to 
develop multiple real-time 
software tasks in a micro- 



processor-based product. It is a 
ROMable product which effi- 
ciently oversees both the selec- 
tion and execution of each 
task. The kernel is fast, small, 
and easy to use. The Multi- 
Tasking Kernel is completely 
documented, fully tested, and 
available in source assembly 
form for the 8085, Z-80, 6502, 
6800, and 6809. 
Price: $195.00 includes assem- 
bly source code implemen- 
tations for all five micro- 
processors. 
Available: 
U.S. Software 

5470 N.W. Innisbrook Place 
Portland, OR 97229 
(503) 645-5043 

Name: Type 

System: SDOS or 

SDOS/MT 
Memory: 48K minimum 
Hardware: 6800/6809 CPU 
with CRT, disk 
and printer 
Description: Type is a docu- 
ment-formatting program, used 
in word-processing or docu- 
ment production. Commands 
embedded in raw text files pro- 
cessed by Type control the for- 
matting of that text on the out- 
put device. Output formatting 
includes full justification, page 
width and depth, page number- 
ing, centering, spacing, titles 
and table of contents genera- 
tion. Type is used in conjunc- 
tion with the SD screen editor 
for easy data entry. 
Price: $140.00 includes pro- 
gram, 100-page manual 
Author: AMS 
Available: 
Software Dynamics 

(exclusively) 
2111 W. Crescent, Su. G 
Anaheim, CA 92801 
(714) 635-4760 



Name: DOS/65 

Version 1.2 

System: 6502 
Memory: At least 16K 
Language: Machine 
Hardware: 8" or 5" "IBM 

Compatible" disk 
Description: Version 1.2 of 
DOS/65 is available for either 
8" SSSD disks or 5" SSSD 
disks. It can be used with dou- 
ble density or double-sided 
disks and allows the user to 
specify the disk format. In- 
cluded with the system is an 
editor, assembler, debugger, a 
full feature BASIC (BASIC- 
E/65), and several transient 
programs such as copy rou- 



tines, file transfer routines and 
similar programs. BASIC-E/65 
provides full disk I/O capability 
for random and sequential files 
and provides the usual arith- 
metic and string functions and 
statements. 

Price: $125 to $175 depending 
upon customizing require- 
ments. Includes disk and 200- 
page documentation package. 
Author: Richard A. Leary 
Available: 
Richard A. Leary 
1363 Nathan Hale Drive 
Phoenixville, PA 19460 



Name: 68000 Cross 

Assembler 

System: 6809 FLEXTM r 
UniFLEX™ 

System 
Memory: 56K 
Language: Assembler 
Hardware: Any supporting 

6809 FLEX or 

UniFLEX 



Description: A full 68000 
assembler which executes on a 
6809. Accepts all standard 
Motorola instruction mne- 
monics with the exception of 
certain "suffix variations" to 
some root mnemonics. All ex- 
pressions are evaluated to 32 
bits. Numerous directives per- 
mit page formatting, symbol 
table listing, line numbering, 
command line parameters, file 
inclusion, etc. Macros and 
conditional assembly sup- 
ported. Outputs S1/S2/S8/S9 
records of ASCII hex data. 

Price: $250 FLEX; 

$300 UniFLEX 

includes manual and diskette 

(manual assumes user is 

familiar with standard 68000 

instruction set). 
Available: 

Technical Systems 
Consultants, Inc. 

P.O. Box 2570 

West Lafayette, IN 47906 

(Continued) 



Ueciaion 
Qystems 



Deoeion System! 

P.O. Box 13006 
Demon. TX 76203 



SOFTWARE FOR THE APPLE II" 

ISAM OS is an integrated set ol Applesoft routines that gives indexed file capabilities 
to your BASIC progiams Retrieve by key. partial key or sequentially Space from 
deleted records is automatically reused. Capabilities and performance thai match 
products costing twice as much. 
$50 Disk. Applesoft. 

PBASIC-DS is a sophisticated preprocessor tor structured BASIC Use advanced 
logic constructs such as IF.. ELSE . CASE. SELECT, and many more Develop 
programs lor Integer or Applesolt. Enjoy the power of structured logic at a traction ol 
ihe cost ol PASCAL 
$35. Disk. Applesolt (48K. ROM or Language Cardl 

DSA — OS is a disassembler lor 6502 code Now you can easily disassemble any 
machine language program lor the Apple and use the dis assembled code directly as 
input to your assembler Disassembles instructions and data Produces code com 
paiible with the S-C Assembler (version 4 Ol. Apple's Toolkit assembler and others 
$25 Disk. Applesolt 132K. ROM or Language Cardl 

FORM-OS is a complete system lor the definition ol input and output Iroms FORM 
DS supplies the automatic checking ol numeric mout lor acceptable range of values 
automatic formatting of numeric Output, and many more leatures 
$25 Disk. Applesoft (32K. ROM or Language Cardl 

UTIL-DS is a set of routines tor use with Applesoft to lormat numeric output, selec 
lively clear variables (Applesolt's CLEAR gets eveiylhing). improve error handling, 
and interface machine language with Applesolt programs. Includes a special load 
routine lor placing machine language routines underneath Applesolt programs. 
$25 Disk. Applesoft 

SPEED-DS is a routine io modify the statement linkage in an Applesolt program to 
speed its execution improvements of 5-20% are common As a bonus. SPEED-DS 
includes machine language routines to speed string handling arm reduce the need Io* 
garbage cleanup. Author LeeMeador. 
$15 Disk. Applesoft I32K ROM or Language Cardl 



I Add MM lor Foreign Maill 
'Apple II is a registered trademark of the Apple Computer Co 
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INSTANT 80 COLUMN APPLE 

The miracle of the 80's . . . everything you want in an 



The miracle of the 80's . . 
80-column card. 

STOP STARING AT 
40 COLUMNS 

WIZARD-80 lets you see exactly 
what you will get when typing 
80-column format. It gives you a 
full 80-column by 24-line display 
with all these features. 

■ Fully compatible with Apple II" 
and Apple II Plus" 

■ Fully compatiblewithmostword 
processors, micro-modems 
and prom programmers, plus 
all current Apple II expansion 
boards 

■ Lists BASIC programs, integer 
and Applesoft 

■ Fully compatible with Pascal 

■ Uses software to switch 
between 40 and 80 column 
formats 



Displays 7x9 matrix characters 
Provides upper/lower case 
characters with full descenders 
Fully edits... uses ESCape key 
for cursor movement 
Scrolling stop/start uses 
standard Control-S entry 
Retains text on screen while it 
is being printed 
Contains crystal clock for 
flicker-free character display 
Has low power consumption 
for cool reliable operation 
Leads soldered directly to board 
for maximum reliability 
2Kon-boardRAM,50or60Hz 
operation 

Inverse video selection 
standard 

Available at all fine 



Computer Stores $295.00 

H^lllESPEH ll|il.lUl 
Systems 

SUBSIDIARY OF WESPERCORP 

'Registered trademarks 
of Apple Computer Inc 
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Name: Morse Code 

Trainer 

System: Commodore 

VIC 20 
Memory: 5K 
Language: BASIC 
Hardware: VIC 20 and tape 

player 
Description: Practice Morse 
Code from 1-35 wpm rate sent 
by the VIC. Rate is controlled 
by your 60 Hz power line fre- 
quency. Enter your own prac- 
tice message, or receive random 
letters, numbers, punctuation. 

Price: $19.95 includes cassette 

and instructions 
Author: Marion H. Taylor 
Available: 

Taylormade Software 

8053 E. Avon Lane 

Lincoln, NE 68505 

(402) 464-9051 



Name: The Responsibility 

Life Dynamic 

System: Apple II 
Memory: 48K 
Language: Applesoft, 

Machine 
Hardware: Apple II, Disk II 
Description: This disk centers 
upon the following four games: 
Speedway (you'll have to be a 
great driver to make those 
hairpin curves); Bean Reac- 
tions (for two players who 
react to the impolite bean- 
reactions of each other with 
big clubs); Ring the Bell (car- 
nival type game); and Animal 
Bingo (move 50 shape-table 
animals around on a Hi-Res 
playing board in totally unique 
ways to make "bingos" — five 
in a row|. 

Price: $15.95 includes disk, 

vocabulary card 
Available: 

Avant-Garde Creations 

P.O. Box 30161 MCC 

Eugene, OR 97403 

Name: Graphics 

Composer 

System: Atari 400/800 
Memory: 32K RAM 
Hardware: Cassette Player or 

Disk Drive 
Description: With Graphics 
Composer, you use paddles or 
joystick to draw a picture 
outline on Hi-Res screen Mode 
8 or 7. Then use color fill-in, 
color brushes and add text to 
complete your graphic designs. 
Graphics Composer allows 
easy creation of Player/Missile 
shapes which may be used in 
other programs. The Geo- 
metries Figures program lets 
the user define circles, 



triangles, polygons, parallelo- 
grams, and even trigonometric 
curves. Loading routines are 
provided so that pictures can 
be used in other programs or 
traded with friends. 
Price: $39.95 includes cassette 

or diskette and 27-page in- 
struction booklet 
Available: 

Versa Computing, Inc. 

3541 Old Conejo Rd. 

Suite 104 

Newbury Park, CA 91320 

(805| 498-1956 



Name: Dentistaid 

System: Apple II 
Memory: 48K 
Language: CBASIC 2 with 

CP/M 
Hardware: Apple II Microsoft 

Z-80 Softcard 
Description: Dentistaid is a 
revolutionary new concept in 
dental office management sys- 
tems. It is designed to stream- 
line all major time-consuming 
tasks in your office and give ef- 
ficiency, accuracy, and com- 
plete control of your office. 
Price: $1,000.00 
Author: Jerry Taylor 
Available: 

The Hayden Book Company, 
Incorporated 

50 Essex Street 

Rochelle Park, N) 07662 

(800) 631-0856 



Name: Tiny BASIC 

Compiler 

System: PET/CBM 
Memory: 4K 
Language: BASIC 
Hardware: PET with cassette 

or diskette 
Description: This is a floating 
point compiler supporting a 
subset of the PET BASIC 
language. The compiler reads 
your BASIC program and 
writes out a file containing the 
6502 object code. All floating 
point arithmetic and functions 
are supported. If you have at 
least 16K, you can get a full 
assembly listing of the object 
code. 

Price: $25.00 includes versions 

for all ROMs and sample 

program 
Author: Mark Zimmermann 

and Dave Malmberg 
Available: 

Abacus Software 

P.O Box 7211 

Grand Rapids, MI 49510 

|616|241-5510 
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Name: D1FF E-Q 

System: Apple II, Pascal 

language card 
Memory: 64 K 
Language: Pascal 
Hardware: One disk drive 
Description: DIFF E-Q is a 
Pascal-based differential equa- 
tion package for Apple II com- 
puters designed for use by 
engineers, scientists, mathe- 
maticians, college instructors, 
and students. It has high- 
resolution color graphics capa- 
bilities, a high-resolution 
screen editor, and electronic 
"Slidetray" and "Slideshow" 
features, making it ideal for 
lecture demonstrations and for 
group presentations. DIFF E-Q 
unlocks the door to a whole 
world of scientific adventure. 
Price: $100.00 includes two 

diskettes, 40-page manual, 

and limited warranty. 
Author: Mark Davidson 
Available: 

Sage Software Company 

1322 La Loma Avenue 

Berkeley, CA 94708 

Name: Plotting Graphs 

for Line Printer 
026009 

System: Apple II or Apple 

II Plus 
Memory: 32K RAM 
Language: Applesoft 
Hardware: Printer 
Description: Where a line 
printer is available, these three 
programs will provide a hard 
copy of a particular graph, 
either for inclusion in a report 
or for later comparison with 
other results. The programs 
contained in this package are 
complete and require no addi- 
tional programming. The 
following programs are in- 
cluded: Cartesian Plots. Semi- 
Logarithmic Plots, Polar Plots. 
Price: $39.95 
Available: 

Advanced Operating Systems 

450 St. John Road 

Suite 792 

Michigan City, IN 46360 

(219) 879-4693 



Chord Mania 

Apple II or Apple 

II Plus, DOS 3.2 

or 3.3 

48K 

Extended BASIC 

Disk Drive, MMI 

DAC board 
Description: A program de- 
signed with a game context for 
practice of chords, including 
recognition of four-voice 



Name: 
System: 



Memory: 

Language: 

Hardware: 



chords in any combination of 
chord qualities (all triads and 
five different seventh chords! 
and inversions. Includes both 
aural and visual skills. 
Responses require the use of 
only three keys. Beginning to 
advanced levels. 
Price: $190.00 includes disk 

and user's guide 
Available: 

Micro Music, Inc. 

P.O. Box 386 

Normal, IL 61761 



Name: Farm Ledger 

System: Apple II or Apple 

n Plus, DOS 3.3 
Memory: 48K 
Language: Applesoft 
Hardware: 2 disk drives, 

printer 
Description: With Farm Ledger 
the user can define up to 500 
accounts and format financial 
reports. The general farm chart 
of accounts can be added to or 
modified to conform to a speci- 
fic farming operation. Features 
include budgeting, depart- 
mentalizing, thorough audit 
trails, extensive error checking 
and data entry prompting. 
Detailed, non-technical docu- 
mentation includes a practice 
session and glossary, SBCS 
provides free program updates, 
replacement of damaged disks, 
and friendly customer service. 

Price: $349.00 includes pro- 
gram disk, program backup 
data disk, documentation. 

Author: David McFarling 

Available: 
Small Business Computer 
Systems 

4140 Greenwood 
Lincoln, NE 68504 
(402) 467-1878 
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Answer to Border Puzzle: 

Really Very Easy!" 



'It's 



Answer to Circuit Puzzle: All 

l's— 1, all 0's — 0, 13 of 16 
possible combinations yield 0. 



W/kard-16VC 

16K RAM APPLE MEMORY CARD 

Unleashes your Apple II* and Apple II Plus* computer. 



ON TO MAXIMUM MEMORY 

Wizard-16K gives your 48K 
Apple II or Apple II Plus the 
last bit of directly accessible 
add-on memory it can accept. 
And, it interfaces with all 
Z80** cards to give you 
CP/M*** 

■ Fully compatible with 
Apple II and Apple II Plus 

■ Adds 16K bytes of Random 
Access Memory (RAM) 

■ Fully compatible with Z80 
microprocessor cards 
for CP/M 

■ Used with Z80 card, it turns 
your Apple II into a two- 
microprocessor system with 
56K of usable memory 

■ With a Z80 card, it lets you 
run BASIC-80****, 



COBOL-80****, 
FORTRAN-80*-**. BASIC 
Compiler"**, and Assembly 
Language Development 
System****, plus Applesoft 
BASIC*, Integer BASIC*. 
Apple Pascal System* Apple 
FORTRAN* and Apple Pilot* 

■ Utilizes Apple DOS 3.3* 
16-sector system to permit 
loading both Applesoft* 
and Integer BASIC* 

■ Compatible with 
VisiCalc***** 

■ Offers all features of Apple 
Language Card* (except 
Autostart ROM) 



Available at all fine 
Computer Stores $149.00 



■OlllEXI'mi HliMIII 
Sifsfinns 



•Registered trademarks 

ol Apple Computer Inc. 

"Registered trademark 

ot Zilnq 
"•Registered trademark 

ot Digital Research 
■"•Registered trademarks 

ot Microsoft 
••■•Registered trademark 
ol Personal Software 



SUBSIDIARY OF WESPERCORP 









■YOUR SAL VA TION IN THE SEA OF INFLA TION" 



ARK COMPUTING 



80 Column Card & 16K RAM Board Sale 



The best price available oft 
a_80-Column for your APPLE. 
Wizard-80 by Wesper-Micro 
RP $345.00 ARK $225.00 



16K Ram Board ARK $ 89.00 

32K Ram Board ARK $139.95 

- with 16-K ram installed - 

(add ? 20.00 for full 32-K 

ram installed) 



LOWER CASE PLUS II by Lazer 
Microsystems. 

The Lazer Microsystems LCP II 
is the LCA value for the bud- 
get minded APPLE II owner. 
Works with all Revision 7 and 
Later APPLE II 's. Includes 
Basic and Pascal software on 
disk. Works with many popular 
word processors. 

ARK's LOW PRICE of $ 19.95 



For people who demand the best 



The best Lower Case Adapter 
available for the APPLE II. 
LOWER CASE PLUS by Lazer 
MicroSystems. 
This feature packed board 
has twice the features of 
competing boards. 
The only LCA that works 
with VISICALC and is recom- 
mended by Stoneware for 
DB MASTER. 
FEATURES: 

-Expandable to 4 character 
sets (2 on board) 

-Inverse only mode 

-Includes graphics & ASCII 

-Compatible w/most word 
processors available. 

AND WITH ARK's LOW PRICE 
THERE'S NO REASON TO PURCHASE 
ANY OTHER. 

RP $ 64.95 ARK $44.95 



Remarkable value in Keyboard 
Enhancers. 

The Lazer MicroSystems Keyboard 
+Plus with these features: 
-64 character type ahead buffer 
-Buffer can be cleared & disabled 
-Works on all APPLE II 's 
-Lets you use the shift-key as 
a typewriter shift-key, 
allowing you to enter directly 
the 128 ASCII character set 
from the APPLE keyboard. 



KEYBOARD +PLUS 
RP$ 99.95 ARK $ 69.95 



THREE EXCITING PRODUCTS. A ONCE IN Al 
LIFETIME DEAL. LOWER CASE PLUS+, , 

KEYBOARD PLUS+, & AN 80-COLUMN BOARDl 
ALL FOR LESS THAN THE NORMAL COST OFI 
THE 80-COLUMN BOARD ALONE. 

ARK $299.95 



By LAZER 

-ANIX 1.0: A set of incredible disk 
utilities w/ UNIX like 
Operating System. 
ARK $ 34.95 
-LAZER PASCAL: A unique, systems 

programming language 
with many features 
of the 'C' program- 
ming language. 
ARK $ 29.95 
-DISASM/65: Most popular disassem- 
bler for the APPLE II. 
ARK $ 19.95 



software 



By BR0DERBUND 

-MIDNIGHT MAGIC 
(Best Pinball 
-APPLE PANIC 
-SPACE QUARK 
-RED ALERT 
-TRACK ATTACK 
-GENETIC DRIFT 
-SPACE WARRIOR 



:RP$ 34.95 ARK$ 24.95 
game we've seen yet) 
RP$ 29.95 ARK" 



RP! 

RP 

RP 

RP 

RPJ 



By DATAMOST 



-SNACK ATTACK: RP$ 29.95 ARKS 
-THEIF: RP$ 29.95 ARKi 

-CONEY ISLAND: RP$ 29.95 ARKS 
-6502 ASSEMBLY by RANDY HYDE: 

RP$ 19.95 ARK$ 15.00 



19.95 
19.95 
19.95 



By ON-LINE SYSTEMS 

-MOUSKATTACK : RP! 

-CROSS FIRE : RP! 
-CRANSTON MANOR: RP! 

-ULYESSES : RP! 

-SOFTPORN ADV : RP! 

-TIME ZONE : RP! 

-LISA 2.5 : RP! 

-SPEED/ASM : RP! 

-THRESHOLD : RP! 

-PEGASUS II : RP! 



29.95 ARKS, 

29.95 ARKS 

29.95 ARK$ 

29.95 ARKS 

24.95 ARK$ 



34.95 ARK$ 
29.95 ARKS 
34.95 ARKS 
34.95 ARK$ 
29.95 ARKS 
99.95 ARK$ 
79.95 ARK$ 
39.95 ARK$ 
39.95 ARKJ 
29.95 ARK$j 



19.95 
19.95 
19.95 
19.95 
19.95 
17.95 



24.95 
21.95 
24.95 
24.95 
21.95 
75.95 
59.95 
29.95 
29.95 
21.95 



We accept: MASTERCARD, VISA(lnclude card # and expiration date), CASHIER 
or CERTIFIED CHECKS, MONEY ORDERS, or PERSONAL CHECKS(Please allow 10 days to 
clear). 

Please add 3% for shipping & handling (minimum $2.00). Foreign orders please 
add 10% for shipping & handling. 

We accept COD's (Please include $2.00 COD charge) 

California residents add 6% sales tax. All equipment is subject to price change 
and availability without notice. All equipment is new & complete with 
manufacturer's warranty. 

Call us at (714) 735-2250 



ARK COMPUTING • P.O. Box 2025 • Corona, CA 91720 
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Hardware Catalog 



Name: GMS6521 65K 

ROM Module 

System: 6500/6800 
Memory: 65K bytes 
Hardware: 6" x 9.75" 

module 
Description: Low cost, high 
density memory expansion 
module with 65,536 x 8 bits 
of EPROM/PROM/RAM with 
selectable address and enable/ 
disable switches. Accepts 
2758, 2408, 2716, 2516, 2732, 
2532 EPROMs of 1, 2, 4K bytes 
each. Sixteen sockets may be 
individually enabled/disabled 
from top of module. Requires 
only + 5V DC power. Low pro- 
file or zero force sockets 
optional. 
Price: $230.00, single piece 

quantity 
Available: 

General Micro Systems 

1320 Chaff ey Ct. 

Ontario, CA 91762 

(714) 621-7532 



Name: GP300 Dot Matrix 

Printer 

Memory: 380-Char FIFO, 

optional 32K RAM 
for character 
generation 
Description: 120-charactcr (10 
characters/inch) dot matrix 
printer. Capable of producing 9 
x 9 data text at 300 charac- 
ters/second and word process- 
ing printing at 80 - 120 charac- 
ters/second (depending on 
font], 18 wire (9x9 inter- 
laced) print head. RS-232C/ 
Centronics interface. Options: 
tractor feed, front feed, reem 
paper handler and pedestal. 
Price: $3165.00 one piece 
$2685.00 100 pieces 
includes 2 character genera- 
tions, interface, power sup- 
ply, friction feed. 
Available: 
Ampcrcx Electronics Corp. 
230 Duffy Ave. 
Hicksville, NY 11802 
(516) 931-6200 



Name: Display Board 

System: Apple 
Description: Displays address 
bus, data bus (latched) and 
hold line. All lines are buf- 
fered. All LEDs are low cur- 
rent, high efficiency type. A 
RUN STOP STEP switch is 
provided so you can single step 



through a program one instruc- 
tion at a time. 
Price: $62.00 (Texas residents 

add 5% sales tax) 
Available: 

Applied Engineering 

P.O. Box 470301 

Dallas, TX 75247 

(214) 492-2027 



Name: Hi-Pad Digitizer 

System: TRS-80 1/2/3, 

Apple, Atari, PET 
Memory: 16K 
Hardware: Digitizing Pad 
Description: High-Resolution, 
high-quality, but low-cost digi- 
tizing pad. Serial RS-232 or 
parallel interface. Excellent 
replacement for Apple pad. No 
static sensitivity. Optional 
stylus. 

Price: $825 - $925 
Available: 

Houston Instruments 

One Houston Square 

Austin, TX 78753 



Name: EZASM 

System: PET/CBM 
Language: Assembler 
Hardware: New ROMs, 

8K-32K, cassette 
or disk, 40- or 
80-column screen 
Description: 4K EPROM chip 
which is available for any free 
socket and contains a very 
complete 6502 Assembler. 
Source code is stored as if it 
were a BASIC program, which 
allows for easy entry, editing 
and manipulation: one BASIC 
line is one line for the 
Assembler. Syntax is the MOS 
Technology standard and all 
addressing modes are sup- 
ported. Operands may be sym- 
bols, symbol expressions, 
decimal, hexadecimal, binary 
or ASCII with limitless com- 
binations. There is an optional 
Cross-Reference which lists 
the symbols used, in alpha- 
betical order, followed by then- 
value and each line number 
where the symbol was used. 
Price: $80.00 includes ship- 
ping and instructions 
Author: Milton B. Bathurst 
Available: 
DataCap 

73, Rue du Village 
4545 Fcncur 
Belgium 



Name: CD2-3 Floppy 

Drive Tester 

System: OSI 
Hardware: 5!4"and8" 

single- or dual- 
sided disk 
Description: CD2-3 uses ex- 
isting drive cable for quick 
connection to isolate prob- 
lems, exercise and repair floppy 
drives. Provides static and 
dynamic tests. Simplifies head 
load and stepper tests and ad- 
justments. Monitors index, 
ready, write protect, clock and 
data circuits. Provides read, 
write and erase verification. 
Price: $275.00 includes step- 
by-step familiarization and 
operating instructions 
Available: 
TEACO/Computer Center 
P.O. Box E 
Michigan City, IN 46360 



Name: CBM 2031 (Single 

floppy disk) 

System: PET/CBM 
Memory: IK RAM 
Description: Low cost, single 
disk drive stores up to 170K 
bytes on a single 5'4" floppy 
diskette, and incorporates an 
IEEE-488 interface for use with 
Commodore's PET and CBM 
computer equipment. The 
2031 is based on the same 
technology used in Com- 
modore's 4040 dual disk drive 
unit, using the latest disk 
operating system (DOS|. The 
2031 diskettes are read/write- 
compatible with the CBM 
4040 disk unit. Owners of the 
disk drive can expand their 
systems by adding additional 
203 l's (or Commodore disk 
drives) and running them in 
tandem. 
Price: $595.00 includes disk 

operating system 
Available: 

Commodore Business 
Machines, Inc. 

Computer Systems Division 
Authorized Dealers 



Name: Model 60 

Universal RS-232 
to RS-449 
Converter 

System: All Interfaces 
Hardware: Aluminum box, 
featuring three 
I/O connector 
ports 
Description: The Model 60, 
Universal RS-232C to RS-449 
Converter, provides a means of 
interconnecting hardware with 
these interfaces. The RS-449 
specification requires a 37-pin 
connector for reverse channel 
operation. Since the allowable 



voltage range of RS-232 signals 
exceed that of RS-449, it is 
necessary to provide resistive 
terminations to prevent 
damage to RS-449 receivers 
from RS-232 drivers. The 
Model 60 incorporates the 
switching mechanism to allow 
the user to select the RS-232 as 
a DTE or DCE. 
Price: $115.00 complete 
Available: 

Remark Datacom Inc. 

4 Sycamore Drive 

Woodbury, New York 11797 

(516) 367-3806 



Name: TKC Numeric 

Keypad 

System: Apple II 
Description: The Keyboard 
Company's Numeric Keypad 
for the Apple II computer 
allows rapid numeric entry, 
easy arithmetic calculations 
and more efficient VisiCalc™ 
operations. The 24-key keypad 
is Apple-coordinated and may 
be comfortably positioned for 
maximum effectiveness. 
Price: $149.95 includes key- 
pad, interface and manual 
Available: 
Authorized TKC/Apple 
Dealers 
Information: 
The Keyboard Company 
7151 Patterson Dr. 
Garden Grove, CA 92641 
(714) 891-5831 



Name: Z-Card 

System: Apple II or 

Apple III 
Hardware: Z-80A 

microprocessor, 
CP/M operating 
software 
Description: The Z-Card trans- 
forms the Apple II or Apple III 
computer into a CP/M-based 
system. The Z-Card offers 
lowest power consumption 
and highest reliability at an af- 
fordable price. CP/M software 
and ALS BIOS, which are in- 
cluded, increase the speed of 
the system and allow the user 
to convert DOS text files to 
CP/M. Features: full keyboard 
mapping, warm boot without 
reset, software allows full 60K 
of user RAM, copy and format 
in one pass through. 
Price: $269.00 includes Z-card, 

diskette, manual, The CP/M 

Handbook by Rodnay Zaks 
Available: 

Advanced Logic Systems, Inc. 
|ALS) 

1195 E. Arques Ave. 

Sunnyvale, CA 94086 

(408) 730-0306 
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% seRsatiooal 
yjpple II software 



creative 

computing 

software 



CAI Programs Vol I 



Cassette CS-4201 Si 1.95 




Requires 16K Apple II or Apple II Plus 



RIGHT HRONC- GROPE 
51 9 B» 



HINT 
CORBURETOR 

: CARBURETOR 

SUPER' Mil 

PRESS HNV KEV POP NEXT llOBD 

PRESS *S' TO STOP 



U.S.Map Identitystatesandtheircapitals Spelling Studyaidwithyourlistof trouble- 
some words 



8*1=9 
UOU ! ! ! 



- - MOD -II TH CflRRV 



♦894 

on get a osaoE of o- 



Math Drill Arithmetic drill and practice with Add With Carry Drill and practice on sums 
large or small display requiring numbers to be carried 



Ecology Simulations - / 



DiskCS-4706. $24.95 



Requires 48K Applesoft in ROM or Apple II Plus 



Slerl 

STERL allows you to investigate the 
effectiveness of two different methods of 
pest control— the use of pesticides and the 
release of sterile males into a screw-worm 
fly population The concept of a more 
environmentally sound approach versus 
traditional chemical methods is introduced 
In addition. STERL demonstrates the effec- 
tiveness of an integrated approach over 
either alternative by itself. 




Pop 

The POPsenesof models examines three 
different methodsof population projection, 
including exponential. S-shaped or logistical, 
and logistical with low density effects At 
the same time the programs introduce the 
concept of successive refinement of a model, 
since each POP model adds more details 
than the previous one. 

Tag 

TAG simulates the tagging and recovery 
method that is used by scientists to estimate 
animal populations. You attempt to estimate 
the bass population in a warm-water, bass- 
bluegill farm pond. Tagged fish are released 
in the pond and samples are recovered at 
timed intervals By presenting a detailed 
simulation of real sampling by lagging and 
recovery. TAG helps you to understand 
this process. 

Buffalo 

BUFFALO simulates the yearly cycle of 
buffalo population growth and decline, and 
allows you to investigate the effects of 
different heard management policies Simu- 
lations such as BUFFALO allow you to 
explore what if question'. <.nd experiment 
with approaches that might L>e disatrous in 
real life 



CAI Programs Vol II 



Ecology Simulations - // 



Cassette CS-4202 Si 1 95 



Requires 16K Apple II or Apple II Plus 



DiSkCS-4707S24 95 



Requires 48K Applesoft in ROM or Apple II Plus 





Pollute 

POLLUTE focuses on one part of the water 
pollution problem; the accumulation of certain 
waste materials in waterways and their effect 
on dissolved oxygen levels in the water 
You can use the computer to investigate 
ihe effects of different variables such as 
the body of water, temperature, and the 
rate of dumping waste material. Various types 
of primary and secondary waste treatment, 
as well as the impact of scientific and 
economic decisions can be examined 



European Map Identify countries and 
their capitals 



Music Composing Aid Make and play 
your own music on the Apple No addi- 
tional hardware required includes a 
sample from Bach s Tocatta & Fugue in 
D minor. 



Meteor Math Learn math skills by destroy- 
ing menacing meteors. 








Rats 

In RATS, you play the role of a Health 
Department official devising an effective, 
pratical plan to control rats The plan may 
combine the use of sanitation and slow kill 
and quick kill poisons to eliminate a rat 
population. It is also possible to change the 
initial population size, growth rate, and 
whether the simulation will take place in an 
apartment building or an eintire city 

Malaria 

With MALARIA, you are a Health Official 
trying to control a malaria epidemic while 
taking into account financial considerations 
in setting up a program The budgeted use 
of field hospitals, drugs for the ill, three 
types of pesticides, and preventative medica- 
tion, must be properly combined for an 
effective control program 

Diet 

DIET is designed to explore the effect of 
four basic substances, protein, lipids, calories 
and carbohydrates, on your diet. You enter 
a list of the types and amounts of food eaten 
m a typical day. as well as your age. weight, 
sex. health and a physical activity factor 
DIET is particularly valuable in indicating 
how a diet can be changed to raise or lower 
body weightsand provide proper nutrition 



Stock & Options Analysis 



DtskCS-4801 $99.95 

Requires 32K Applesoft or Apple I 



Plus 



CAI Programs I and II 

DiskCS-4701.S24 95 
Requires 32K Integer Basic 

This disk contains all 7 programs from cas- ThlS tS a comprehensive set of four programs 

settes CS-420 1 and CS-4 202 for tne mvestment strategy of hedging listed 

options against common stocks. A complete 
description is in the TRS-80 section Available 

Note The ecology simulations programs August 1981 

are not available on cassette. 



Order Today 



To order any of these software packages, 
send paymenf plus $2.00 postage and 
handling per order to Creative Computing. 
Morns Plams. NJ 07950 Attn; Cleo 

Visa. MasterCard and American Express 
orders may be called in toll-free 



Order today at no risk If you are not 
completely satisfied your money will be 
promptly and courteously refunded 

Creative Computing Software 

Morns Plains NJ 07950 

Toll-free 800-631 -81 12 

In NJ 201-540-0445 



creative coraputiRp; software 
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PET Audible Disk Alarm 



This article describes a simple 
accessory which sounds an 
alarm when a disk error occurs. 
The audible alarm saves time 
spent in tracing system errors. 



John E. Girard 

676 Alma Ave. #106 

Oakland, California 94610 



I don't know how much time I've 
wasted trying to salvage my work, only 
to discover that I was hung up on a sim- 
ple disk error. Now the investment of 
$3.67 in parts will allow us to hear disk 
errors and to correct them in record 
time. My device will work on 2040, 
4040, and 8050 series disk units. In- 
stallation takes about 10 minutes. 

Patts List 

Piezo buzzer, Radio Shack #273-060, 
$2.99; resistor, 470 ohms, #271-019, 
.19; diode, 50 volt @ 1 A, #276-1101, 
.49 |8050 only); 8-inch length of red 
hookup wire; 7-inch length of black 
hookup wire; electrical tape (masking 
tape will suffice). 

Installation 

Please refer to figure 1 . Remove the 
two cover screws located on the sides 
near the front, swing the top section up 
and prop it open with the wire brace. 
Proceed with the following steps: 

1. Strip V4 inch of insulation from the 
ends of all wires. 

2. Attach the red hookup wire to the 
red wire of the piezo buzzer. 

3. 8050 disk drives: Observe that the 
diode is a black cylinder with a 
white band encircling one end. At- 
tach the banded end to the black 
hookup wire. The other end of the 
diode connects to one side of the 
470 ohm resistor. Attach the re- 
maining lead from the resistor to the 
black wire of the piezo buzzer. 



2040 and 4040 disk drives: Attach 
one side of the 470 ohm resistor to 
the black hookup wire; attach the 
other side of the resistor to the black 
wire of the piezo buzzer. 

4. Locate the power plug for the error 
LED. Pull the plug out and separate 
the wires slightly. Remove !4 inch 
of insulation from each wire but do 
not cut the wires. Replace the plug. 

5. If your plug wires are orange and 
white, connect the red alarm wire to 
the orange plug wire and connect 
the black alarm wire to the white 
plug wire. Now, create an error con- 
dition (an easy one is to initialize an 
empty drive). When the error light 
comes on, the piezo buzzer will 
emit a mild but penetrating tone. 

6. If your plug wires are not orange and 
white, then do not connect the 
alarm wires. Create an error condi- 
tion. Once the LED is glowing red, 
try touching the alarm wires to the 
exposed plug wires. You have two 



choices: one combination will ac- 
tivate the buzzer, and the other will 
not. 8050 owners: If neither com- 
bination works, you have wired the 
diode backwards. Return to step 3. 

When you have found the proper 
combination, clear the error and 
proceed to connect the alarm wires. 

7. Cover all electrical connections 
with tape. Be sure to cover the bare 
wires on the diode and resistor as 
well. To mount the buzzer, select 
any open spot and secure it with two 
strips of tape. You may reduce the 
loudness by partially covering the 
buzzer with tape. 

If your floppy is still under warranty. . . 
... Do not strip the power wires in 
step 4. Wrap the alarm wires carefully 
around the plug prongs, push them to 
the base of the connector, and secure 
with narrow strips of tape before re- 
placing the plug. Be sure to remove the 
alarm entirely before taking your floppy 
in for service! 



Figure 1: Inside view 




& 



DRIVE 



* 



, PIEZO 
BUZZER 



* Locations of the mounting screws for cover. 
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Hot pursuit 
through space 
and the 
vortices 
of time! 





RE PRESENTS. 



Sinte PiOk'il 

The fallen Time Lord, who presumptuously calls himself The Master, is at large. 

The elders of Waldrom have supplied you with the hyperspace-worthy vessel 
Tardus, and commissioned you to eliminate the evil "Master". Your resources 
include clones who will fight for you, the formidable CRASER weapons of the Tardus, 
and magic weapons such as Fusion Grenades and Borelian Matrix Crystals. 

Traveling through hyperspace in search of the evil one, you will encounter Time 
Eaters, Neutron Storms, and other alien creatures and phenomena. Entering real 
space to search planets, you will encounter still other dangers. You will enter native 
settlements to buy food and supplies — or to fight for survival. 

And once you find The Master can you destroy him? 




^^S I 



T5€:HPiRDSID€ 

6 South Si .Millord. NH 03055 (6031673-5144 
TOLL FREE OUT-OF-STATE 1 800-258-1 790 



Based on Dr. Who of PBS fame. 
Apple Integer Basic, 
Disk, 48K . . . $29.95 
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BASIC 

FOflHCMeCCMRjm 



TSE HARDSIDE HAS IT ALL 
IN ONE! 

How many times have you wished that there was a single source for 
your personal computer needs? Well look no further, TSE- 
HARDSIDE, located in pleasant New Hampshire, has virtually every 
conceivable item for your micro. Whether you're shopping for your 
Apple, Pet, TRS-80'" or Atari, TSE-HARDSIDE has it all. We stock 
hardware, software, books, magazines and specialty items for all of 
the popular machines. So the next time you're out shopping for your 
system don't be surprised, be satisfied. Remember the name TSE- 
HARDSIDE as your choice for quality, service and reliability. 




TS6:HPIRDSID€ 

6 South Si Mii'ord NH 03055 |603>673-5U4 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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GET FREE SOFTWARE FOR YOUR COMPUTER! 

HOW? JUST ORDER ANY OF THE ITEMS BELOW. AND SELECT YOUR FREE SOFTWARE FROM THE BONUS 
SOFTWARE SECTION. USING THE FOLLOWING RULE: FOR THE FIRST $100.00 WORTH OF MERCHANDISE 
ORDERED TAKE 1 ITEM; FOR THE NEXT $200.00 WORTH OF MERCHANDISE ORDERED TAKE ANOTHER ITEM; 
FOR THE NEXT $300.00 TAKE A THIRD ITEM, ETC. ALL AT NO COST. 



300 Smarlmodem 



i6KRamcard 



HARDWARE by APPLE COMPUTER 
APPLE II + .48K 1 199 PASCAL LANG. SYS 397 

FLOPPYDR + CNTP.LR 535 FLOPPYDRIVE 455 

We carry Ihe resl ol me APPLE line al low. low prices! CALL 1 

OTHER HARDWARE lor APPLE 

DC. HAYES: 

Micromodemll 

MICROSOFT: 

Z80SoHcard 269 

MOUNTAIN COMPUTER: 

CPSMullilunclion 199 

Expans. Chassis 595 

CALL FOR MORE PRICES WE CARRY FULL LINE 1 

CALIF. COMPUTER SYSTEMS: 

CenlronicsPar.ini 115 A/DConv. 

Async. Serial int. 135 Amh.Proc./Disk 

CALL FOR MORE PRICES WE CARRY FULL LINE! 

VIDEX: 

SOCol. Board 275 Swilcnplaie 

Enhancer I 105 Enhancer li 

MORE OTHER HARDWARE FOR APPLE: 



PRINTERS 



A/D + D/ACard 
Romplus 



105 
135 



105 
339 



SSMAIO 

SSM Serial ASIO 

SSM Par APIO 

SSMA48SIEEE 

NovalionAPL CAT 

VERSAWRITER 



159 
115 
99 
425 
339 
249 



ART Keypad 
Keyboard Co. Keypad 
SunshineJoystick 
Cisco Paddles 
Prometheus Z Card 
SUP'R MOD 



15 
125 

119 
129 

40 
29 

229 
29 



OTHER SOFTWARE tor APPLE: 

PERSONAL SOFTWARE: 

Visicalc3.3 159 

Visiplol 149 

Vislterm 125 

Desktop Plan 1 1 169 
MICROSOFT: 

APPLEFortran(Z80) 149 

TASC Basic Compiler 139 
MICRO-PRO: 

Wordstar 245 

Spell-Star 149 
PEACHTREEBI2 Packages. all 
CPA BIZ Packages, all 



Visilile 

Visiplol/Visilrend 
Visidex 
Visipak 

APPLE Cot»l|Z80) 
Olympic Declalhon 

Mail-Merge 
Data-Star 



199 
199 
169 

559 

499 
25 

99 
199 
219 

199 



MORE OTHER SOFTWARE lor APPLE: 



08 Master 179 

OataFaclory 125 

ASCIIExpress3 3 55 

Sorcim Super Calc 250 
HowardTax Preparer '82 125 

Real Estate Analyzer 129 

AshtondBasell 495 

Graph Tnx 49 



DBMastertorCORVUS 

PFS 

PFS Report 

SpeliguardCP/M 

SroderbundG Ledger 

Broderbund Payroll 

dBase II Manual 



399 
B5 
B5 

235 

335 
33S 
50 



WORD-PROCESSORS lor APPLE: 



Wordstar CP/M 
Magic WandCP/M 
Executive Secretary 
Letter Pertect 
Magic Window 
Spellguard 



245 
299 
199 

125 
85 
235 



EZWrilerProt Sys. 
MUSE Super Text 
Wordpower 
Hebrew n 
Superscribe II 
SpellslarCP/M 



Word Handler (Gives 80 Col . &iower case with no board 1 ] 



125 

5C 

55 

no 
1-9 
199 



EPSON: 

MX80 495 

MXIOOw/Graltrax 775 

APPLE Inttce/Cbl 85 

GRAPPLERInllc 149 

MX80 Ribbon 15 

C.ITOH: 

25CPSDaisyPar 1440 

45CPSDaisyPar 1795 

DaisyTractorOplion 225 
NEC SPINWRITERS S MATRIX 

3530Par/RO 1895 

7730Par/R0 2445 

77DSellum 2795 



MX80F/T 

MX70w/Giallrax 

GRAFTRAX 

2K Butler Ser Card 

MX100 Ribbon 

25CPS0aisySer 
40CPS Daisy Ser 
PRO-WRITERPar 
PRINTERS: 
3510Ser/RO 
77IOSer/flO 
NECPC8023A 



OUME: 

9/45 

IDS: 

445G 

560G 

II: 810Basic 

MPI:88G 



DIABLO: 
2149 630R/0 

699 460G 

1075 PrismColor Printer 

1349 810Senal 

579 99G 



PRINTR0NIX:P300 4500 P600 



575 
375 

90 
135 

24 

1495 
1895 
515 

1895 
2445 
675 

2350 

875 
t699 
1429 

669 
6150 



2490 
2775 



, Fu'lWord- 
4500 



ADD-ON MEMORY CARDS & DISK DRIVES 
FOR APPLE 
MEMORY: 

Microsolll6KRamcard 159 Saturn 32KRamcarc 
Legend 128K Ram card 649 Prometneus128KRam 
Legend 64K Ram card 299 4116Add-lnMem/16K 
SVA256KAPL-Cacne 1045 
APPLE-COMPATIBLE FLOPPIES by MICRO-SCI: 
With Controller : No Controller 

A350ir Replacemenl 450 A35 
A4040-Track 489 A40 

A7070-Track 599 A70 

APPLE-COMPATIBLE FLOPPIES by VISTA 
40Track163KB 389 80Track326KB 

160Track652KB 799 8"A800Conlroller 

V1000Dual8" VIO0ODual8". 

Subsystem 1300 Dbl Side 

SORRENTO VALLEY ASSOC: 



199 
660 
29 



415 
399 
499 

559 

549 



AMS8000Dual8" 
AMS 8000 Dual 8". 

Dbi.Sd 
ZVX40uad Controller 

CORVUS: 
5Moyle 
20 MByte 



1945 



2595 
495 



3195 
5600 



AMS50005MB Drive 2995 
AMS 501010 Mb. Drive 3495 
Disk2 + 2Controller 359 



10Mbyte 
Mirror 



4395 
675 



MONITORS* PLOTTERS 
ZENITH: 

12" Green 125 13 "Color 

AMOEK: 

!2"Green 135 13 'Color 

WATANABE FLATBED PLOTTER: 
4Pen 1150 6Pen 

STROBE CYLINDRICAL PLOTTER: 
Plotter 699 APPLE Inllce 

HOUSTON INSTR FLATBED PLOTTER: 
DMP3 Smart Plolter 1299 6-PenAdaptor 



375 
375 
1400 
75 
349 



COMPUTER SYSTEMS 
HEATH/ZENITH: 

Z89FACompuier(48K) 2150 Z90Compuler 
Zl9Terminal 725 Z47Dual8Drive 

WORDSWORTH by LEADING EDGE: 
(A Zenith Z89 & C ITOH 25 cps Starwriter & CP/M 
Processing Software &Super-Calc) 

HEWLETT-PACKARD 

HP125 2599 HP85 2099 

82903A16KMem. 250 290/MDual5"0nve 2125 

NEC: 

PC8001A32KCompuier 1099 PC8012AI/0Unit 699 

PC8031 A Dual Drives 1099 CP/M2.2torNEC 125 

WordstartorNEC ,299 Super Calc lor NEC 279 

COMMODORE: 

VIC20Computer 259 VIC15l5Printer 315 

8032 Micro Manilla™ 1100 8050 1MB Dual Disk 1375 

82502MBDualDnve 1760 40400ualDrive 999 



4022 Printer 

ATARI: 

ATARI 800(1 6K| 

SIODisk Drive 

16K Ram Memory 

MICROSOFT BASIC 

BISDisk 

INIEC32KRam 

XEROX: 

820 1Systemw/5"Dr. 2495 

WORDSTAR 419 

SUPERBRAIN by INTERTEC 

64KDD 2695 

DSSIOMeg 3195 

Intertube 725 



630 8024-7Hi-SpeedPnnterl345 



599 
449 
89 

69 
1199 
129 



ATARI400(16K) 
825 Printer 
850 Interlace 
VISICALC 
Letter Pertect 
Axlonl28KRamDisk 



339 
619 
159 
159 
125 
550 



820-2Systemw/8"Dr. 3145 
CP/M OP SYS 175 



64KQD 
Emulator 



2995 
725 



CRT TERMINALS 

Heath/ZenilhZ19 725 Televideo912C 685 

Televideo920C 775 Televideo950C 985 

Televideo910 595 ADDSViewpoint 595 

ADDSR25 875 ADDSR40 1175 

AMPEXDialogue80. 2-page. Detachable 995 

IBM3101-10 1199 



MODEMS 

CAT 159 DCAT 169 

VENTEL ? 12-3.1 200 BD 819 AUTOCAT 229 

LEX 11 149 UNIVERSALAUTO ANS 220 

UNIVERSAL ORlG/ANS 180 UNIVERSAL 1200BD 259 



S100 CARDWARE 
SSMMB6464KMem. 775 HAYES SI 00 MODEM 349 
CCS 64K Dynamic 429 OTCIock/Cal 135 



3M5"SottSSSD/bx 
Elephant 5.25* 
SotlSSSD/bx 



FLOPPY DISCS 

29 3M8"SottSSSD/bx 33 

Elephanl8" 
25 SottSSSD/bx 29 



BONUS SOFTWARE SECTION ! 



Lei us acquami you with MESSAGE-MAKING SOFTWARE. Just place ihe disk in the 
APPLE, enter Ihe text, and colorful, dynamic messages appear on ihe screens of TV sels 
connected to the computer Use the software to broadcast messages on TV screens in 
schools, hospitals, factories, store window, exhibit booths, etc The following program is 
our latest release: 

SUPER MESSAGE: Creates messages in full-page "chunks". Each message allows 
slaiements of mixed typestyles, typesizes and colors, in mixed upper and lower case 
Styles range from regular APPLE characters, up to double-size, double-width characters 
with a heavy, bold font. Six colors may be used for each different typestyie. Vertical and 
horizontal centering are available, and word-wrao is automatic Users can chain pages 
together to make multi-page messages. Pages can be advanced manually or automatical- 
ly. Muni-page messages can be stored to disc or recalled tnstanfiy 
REQUIRES 4BK 8 ROM APPLESOFT $50 

APPLE PLOTS YOUR DATA & KEEPS YOUR RECORDS TOO! APPLE DATA GRAPH 2.1. 
Plots up to 3 superimposed curves on the Hl-res Screen both X & Y axes dimensioned. 
Each curve consists ol up to 120 pieces of daia. Graphs can be stored to disc and recalled 
immediately for updating. Up to 100 graphs can be stored on the same disc. Great for 
Stock-market Charting. Business Management, and Classroom instruction! 
REQUIRES 48K& ROM APPLESOFT.. . $35. 

APPLE RECORD MANAGER: Allows complex files to be brought into memory so that 
record searches and manipulations are instantaneous. Records within any file can con 
tain up lo 20 fields, with user-de'med headings. Information can be string or numeric 
Users can browse thru files using page-forwa>d, page-backward or random-search com- 
mands. Records can easily be searched, altered or sorted at will. Files can be stored on 
the same drive as the master program, or on another, if a second drive is available 



Records of files can be printed, if desired. Additional modules coming are a STATISTICS 
INTERFACE. CHECKBOOK. MAILING LIST & OATAENTRY 

REQUIRES 48K & ROM APPLESOFT $40 

APPLE LITERATURE DATABASE: Allows rapid retrieval (via keywords) of references from 
tola) APPLE literature thru 1980, on 5.25 ' disk Each entry in the data base consists of the 
article, author-name, periodical-name, date o' issue. & page nos. Tt^e database is 
intended to support large magazine files which would require lengihy manual searching 
to recover Information. Annual updates will be available 
REQUIRES 48K& ROM APPLESOFT . $60 

WORDPOWER Is a simple, powerful, tow cost. Mneorienfed word-processor program It 
offers a fast machine language FIND & REPLACE. Text can be listed to screen or printer, 
wilh or without line-numbers. Lowercase adaptors are supported. You can merge files, 
movegroupsof lines, and easily add. change, or delete lines WORDPOWERcanbeused 
to create and maintain EXEC files. H can also be used as a rapid, unstructured, informa- 
tion-storage and retrieval system via its rapid search capabilities 
REQUIRES 48K & ROM APPLESOFT . $50 

LABELMAKER: Allows users to quickly create address labels. A given label may be gen 
erated in any quaniify from 1 to 32767 Space is allowed on labels for a personal and 
company name, but the space is automatically closed up it only a personal name is 
entered Space is also allowed for foreign countries. The program can also generate 
labels for price-lags, part numbers and mail-messages such as "RUSH", "FRAGILE", etc. 
A self-incremeniing feature allows theatre-tickets to be produced, wilh a date, and 
numbers running from aOOO to ;999. An editor is provided tor editing labels prior fo print- 
ing. All labels may be saved to disk for instant recall 
REQUIRES 48K S ROM APPLESOFT $35 



Above software for APPLE DOS 3.2/3.3 only. Call for BONUSES for other systems. 
TO ORDER: Use phone or mail. We accept VISA, MASTERCARD, COD's, personal checks & 
money orders. Add 4% for credit card. Customer pays handling on COD orders. Foreign 
orders must be in American Dollars & include 10% for handling. Connecticut residents add 
7.5% sales tax. Prices subject to change without notice. 



CONN. INFO. SYSTEMS CO. 
(203)579-0472 

218 Huntington Road, Bridgeport, CT 06608 
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I/O Expansion for AIM 



The AIM 65 computer is well- 
suited to low-demand process 
control applications, due to its 
user-dedicated 6522 VIA. This 
article describes a method of 
adding two more VIAs to the 
AIM to triple the capacity of its 
input/output control hardware. 



Gary Finley 
Room P-102 
Biological Sciences 
University of Alberta 
Edmonton, Alberta 
Canada T6G 2E9 



Many users of 6502-bascd micro- 
computers who have an interest in 
control-type applications have dis- 
covered the wealth of hardware 
utilities that is provided in the 6522 
versatile interface adaptor (VIA). This 
well-named device provides an impres- 
sive array of input/output (I/O) facili- 
ties inside one $10 package, including 
two 8-bit parallel ports, two 16-bit 
counter/ timers, and an 8-bit shift 
register. The ports have bit-wise select- 
able data direction, optional input latch- 
ing and four associated control (hand- 
shake) lines. The two timers can easily 
perform pulse counting, frequency gen- 
eration and interval timing functions, 
and the shift register can be used to per- 
form both serial-to-parallel and 
parallel-to-serial data conversions. 

In the Rockwell AIM 65 computer, 
a 6522 chip is used to control the 20- 
column printer, the two cassette inter- 
faces, and the teletype port. One of the 
timers in this chip is used to provide 
the five millisecond delay that is used 
to debounce the keyboard switches. 
The AIM 65 board holds a second 6522 
VIA, and this one is available for user 
applications, with all 16 port bits and 
their four associated control lines 



brought out to the 44 contact 'applica- 
tions' connector at the left rear of the 
computer board. It was the provision of 
this user VIA that made the AIM 65 
computer attractive to my colleagues 
and me at the psychology department 
of the University of Alberta. 

Many of the experiments in psycho- 
logical research that are conducted here 
represent low demand control tasks to 
which the AIM 65 and its user VIA are 
admirably suited. In a typical stimulus- 
response experiment, a control com- 
puter is used to present an auditory or 
visual stimulus to the subject. The 
computer then waits for him to choose 
from a number of possible responses, 
and records as data the identity of the 
response selected and the time taken by 
the subject to make his choice. 

These tasks are easily accomplished 
with the facilities of the user VIA and 
some simple peripheral hardware. A 
few port bits are configured as inputs 
and connected to debounced response 
switches, a few others act as outputs — 
controlling lamps or tone generators 
through Darlington transistor drivers, 
and the programmable timers look after 
the measurement of the reaction times. 
Thus, with a minimum of external 
hardware, the AIM 65 can provide an 
excellent control facility at very 
modest cost to the user. 

In the early days of this work (early 
1980) the available capacity of 16 port 
bits seemed easily adequate for the 
demands of the type of experiment then 
conducted, and for any reasonable de- 
mand then foreseen for the future. 

How times change! In the inter- 
vening months, we have found that 
port space acts like spending money — 
given an adequate supply, one soon 
develops a need for much more. As our 
experimenters became familiar with 
the computer, their confidence in the 
technique grew, and their ambitions 
were right behind. Soon the AIM 65 



was running very demanding experi- 
ments involving simultaneous inputs 
from several subjects, the operation of 
stepping motors |which consume four 
port bits each), or combinations of 
similar tasks. The wealth of port space 
that had once seemed so generous was 
soon all spent, and the next experiment 
in line needed "just a few more bits" 
for the control of the apparatus and col- 
lection of the data. 

As these situations arose we met 
them at first with craft using tricks to 
make more efficient use of the avail- 
able port space. By encoding 16 inputs 
into four bits, or multiplexing one set 
of four bits to run several motors at 
once, we made our 16 bits do the work 
of 24 or more. However, these stop-gap 
strategies were not very satisfactory. 
The hardware involved became com- 
plicated, and the programs became 
laden with extra routines containing 
the tricks that shared the port space 
among the various tasks to be done. 
Before too long it was clear that, 
although the AIM computer had plenty 
of computing power for our needs, the 
single user VIA was a bottleneck in the 
flow of control. 

This article describes our solution 
to the problem: a simple add-on circuit 
for the AIM 65 that contains two addi- 
tional 6522 VIAs. Using this design, 
any AIM 65 user who can do wire-wrap 
assembly can, in a few hours (at a cost 
of about $40), triple the I/O capacity of 
his computer to a total of six bidirec- 
tional ports, twelve control lines, three 
shift registers and six programmable 
timers. 

Design of the I/O Expansion Board 

To the 6502 microprocessor, a 6522 
VIA looks like an array of 16 memory 
locations. Like any other memory chip, 
it must have connections to the system 
data bus and the control bus signals 
necessary for reading bytes of data from 
the data bus, or writing bytes to it. 
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Figure 1: A Decoder for Address SFFF 
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These control signals are: the system 
clock (#2), the read/write line (SYS 
R/W), and the reset line (RES). An addi- 
tional connection is needed in order for 
the 6522 to be able to interrupt the 
microprocessor during interrupt-driven 
I/O functions. If this facility is desired, 
then each 6522 in the system must be 
conn ected to the interrupt request line 
(IRQ). 

In addition to the data bus and the 
above control signals, a 6522 VIA must 
have connections to the system address 
bus, so that its 16 internal registers can 
be accessed one-at-a-time for the ex- 
change of control and data bytes with 
the microprocessor. With only 16 inter- 
nal locations, the 6522 needs only to 
decode the lowest four bits of address 
information. Like any other memory 
chip, it relies on an external address 
decoder circuit to tell it which section 
of the address space it is to respond to. 
In this case, the section is only 16 
addresses long. The design of such an 
address decoder is a central part of this 
project. 

In general, the address decoder must 
contain the logic necessary to produce a 
chip select signal for each VIA when 
one unique combination of bits is pre- 
sent on the highest 12 lines of the ad- 
dress bus. In commercial products, the 
address decoder logic is usually very 
general so that the purchaser can adjust 
the decoder, by means of DIP switches 
or wire jumpers, to fit the address re- 
quirements of the product into an area 
of the memory map of his system that 
is not already occupied. This degree of 



generality is nice in principle, but it 
complicates the design of the decoder a 
little, increases the parts count, the 
cost of the project, and also adds to the 
construction time. In the design shown 
below, the decoder logic has been kept 
simple through the use of a fixed ad- 
dress assignment, chosen by the user 
before construction to suit the require- 
ments of his system. 

Address Decoder Theory 
of Operation 

As an example of the operation of an 
address decoder, consider one built to 
produce a chip select signal for the 
unique 12-bit address SFFF (1111 1111 
1111 binary). If the four address lines 
represented by each hexadecimal digit 
of the address are connected to the in- 
puts of a four-input NAND gate (see 
figure 1), the gates will each produce 
logic LOW outputs only when all four 
of their inputs are in the logic HIGH 
state. If we form a second logical 
NAND function of the inverted outputs 
of these gates, the resulting output is a 
chip select signal that is LOW only 
when all 12 inputs are HIGH, corres- 
ponding to an input address of $FFF. 
Any other address will cause at least 
one of the four-input gates to have a 
HIGH output, and no chip select (LOW 
decoder output) will be produced. 

This example decoder is of no use 
whatever in the AIM 65, since no ad- 
dresses starting with $FFF are available 
to the user in that system. However, 
the decoder of figure 1 is easily changed 
into others that decode addresses that 



are available to AIM 65 users. If, in 
figure 1, the bit on the highest address 
line (A15) was changed from a one to a 
zero, the address would be $7FF (0111 
1111 1111 binary). The decoder of 
figure 1 doesn't give an output for this 
address. However, by the introduction 
of a single inverter between the address 
line A15 and its NAND gate input, we 
can alter the decoder so that it does re- 
spond to this new address. As drawn in 
figure 2, the decoder gives an output 
only for the new address $7FF. From 
this example it is easy to generalize to 
the design of a decoder for any desired 
address in the range from $000 to SFFF. 
Simply write the address down in col- 
umn form beside a diagram like figure 
1 , and wherever it contains a logic zero, 
put an inverter between that address 
line and the NAND gate input. 

An Address Decoder for the 
I/O Expansion Board 

An I/O expansion board containing 
two VLAs requires two address decoders 
of the type described above: one to pro- 
duce a chip select signal for each VIA. 
However, by choosing the addresses of 
the VIAs appropriately, we can produce 
two signals with little more hardware 
than was needed for the first one. Since 
each VIA has 16 internal registers, two 
VIAs must have their base, or lowest 
addresses separated by at least 16 ad- 
dresses to avoid overlap. This means 
that their hex addresses must differ by 
at least one number in the third hex 
digit. The component count of the de- 
coder is minimized if both VIAs have 
common first and second hex address 
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Figure 2: A Decoder for Address $7FF 
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digits. In figure 3, the top four-input 
NAND gate decodes address bits A15 - 
A12, or the first hex digit, and gives an 
output when that digit is a '9.' Similarly, 
the second four-input gate decodes bits 
All - A8 (the second hex digit) and 
gives an output when that digit is an 
'F.' By choosing both VIA addresses to 
be of the form $9FX (where X is any hex 
digit), we can use the above two signals 
in the generation of chip selects for 
both of them with no added hardware. 



In most AIM 65 systems, there is a 
large range of address space that is 
available for use by the I/O expansion 
board. In a computer with 4K of on- 
board memory, the entire range from 
$1000 to $9FFF is available. In a 
machine having a 16K memory expan- 
sion board, this range is reduced to 
$5000 to $9FFF, but there is still plenty 
of room for the 32 addresses occupied 
by the I/O board. For this reason, it is 
usually possible to choose the I/O 



board addresses to be values convenient 
to the design of the decoder. In order to 
save wiring time, it is most convenient 
to choose the third hex digits of the ad- 
dresses to use the fewest inverters in 
the decoder circuit. Since an 'F' uses no 
inverters, it is one logical choice. The 
other digit could be an 'E,' 'D,' 'B,' or a 
'7' using only one inverter. In the cir- 
cuit shown in figure 3, this digit has 
been chosen to be an 'E,' because this 
way the two VIAs occupy 32 adjacent 



Perry PeripIieraIs RepaIrs KIMs!! 

(SYMs ancJ AIIVIs Too) 

• We will Diagnose, Repair, and Completely Test your Single Board Computer 

• We Socket all replaced Integrated Circuits 

• You receive a 30-day Parts and Labor Warranty 

• Labor is $38.00 if 40-pin ICs are socketed ($40.00 otherwise) — Parts Extra 

• Your repaired S.B.C. returned via U.P.S. — C.O.D., Cash 

Don't delay! Send us your S.B.C. for repair today 
Ship To: (Preferably via U.P.S.) 

Perry Peri'pIieraIs 

6 Brookhaven Drive 
Rocky Point, NY 11778 

Perry Peripherals carries a full line of the acclaimed HDE expansion components for your KIM, SYM, and 
AIM, including RAM boards, Disk Systems and Software like HDE Disk BASIC V1.1. Yes, we also have 
diskettes. For more information, write to: P.O. Box 924, Miller Place, NY 1 1 764 or Phone (516) 744-6462. 



addresses, minimizing the address space 
between them which would otherwise 
probably be wasted. 

Thus, in figure 3 we have the top 
four-input gate giving an output (logic 
zero) for 12-bit addresses of the form 
$9XX, and the second four-input gate 
giving an output for addresses of the 
form $XFX. The third four-input gate 
produces an output for addresses $XXF, 
and the bottom four-input gate for ad- 
dresses $XXE. These signals all require 
inversion before they can be combined 
by the three-input gates on the right 
side of the diagram, so each is first 
passed through an inverter as shown in 
the middle. These inverters and the top 
three-input gate perform a logical AND 
function on the signals CS9XX (chip 
select from addresses of the form 
S9XX), CSXFX, and CSXXF to produce 
a chip select signal whenever the cur- 
rent address is of the form $9FF. The 
inverters and the bottom three-input 
gate do the same for the signals CS9XX, 
CSXFX and CSXXE to give a chip select 
signal for all addresses of the form $9FE. 

When these two chip select signals 
are connected to the two VIAs on the 
I/O expansion board, those VIAs will 
respond in exactly the same way as the 
built-in user VIA, but with base ad- 
dresses $9FE0 and S9FF0. For example, 
in the VIA chip the interrupt flag 
register has the location (base address 
+ D) hexadecimal. The user VIA has a 
base address of $A000, so the user in- 
terrupt flag register is at the address 



$A00D. This same register is at the ad- 
dress $9FED in one of the added VIAs 
and $9FFD in the other. 

The above base addresses were not 
chosen entirely to simplify the wiring 
of the address decoder. In the AIM 65 
the system I/O addresses start at 
SAOOO, and in machines with both the 
ROM-based assembler and BASIC 
language installed, the system memory 
map is full all the way up to the top of 
the address space at $FFFF. The system 
address usage is put at the top of the ad- 
dress space to keep it out of the way of 
user memory which starts near the bot- 
tom (at $0200). In order to leave the 
maximum amount of uncluttered ad- 
dress space for user memory expansion, 
it is good policy to follow the example 
of the AIM's designers and put the ex- 
pansion I/O board address usage as high 
in the available address space as possi- 
ble. The address decoder in figure 3 puts 
the two added VIAs in the last 32 ad- 
dresses below the system's reserved area. 

In systems that have this area 
already dedicated to some device, the 
decoder of figure 3 can easily be changed 
to put the added VIAs somewhere else. 
Two hex-inverter packages (74LS04) 
were used for the design shown in 
figure 3. Of these 12 inverters only the 
four in the middle of the diagram (be- 
tween the sets of four-input and three- 
input NAND gates) are in required posi- 
tions. The remaining eight inverters (of 
which only three are used by the circuit 



in figure 3) are available for the selec- 
tion of the address lines that are to con- 
tain logic zeros in the desired addresses. 

Figure 4 shows the circuit for the 
connection of the system data, address 
and control bus signals to the two VIAs. 
One of the chip select signals from the 
address decoder is connected to pin 23 
of each one. The port bits and control 
lines on the right side of each package 
are connected to the peripheral devices 
as described in the assembly section 
below. 



Once the address allocations of the 
I/O expansion board have been chosen, 
and an address decoder of the above 
form has been designed, the conceptual 
part of the project is finished. All that 
remains to be done is the actual wiring 
and the connection of the finished I/O 
expansion board to the computer. 

Assembly of the I/O Board 

A small single-unit project of this 
sort is most easily and quickly built by 
the wire-wrap technique, and this con- 
nection scheme is particularly well- 
suited to this project with its hard- 
wired address assignment. If some 
future expansion of the computer 
should require the changing of the I/O 
board addresses, this can easily be done 
by the re-wrapping of a small number of 
the wires which determine the address 
bus lines that are inverted before con- 
nection to the NAND gate inputs. This 



Figure 3: An Address Decoder for the I/O Expansion Board 
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sort of change would be inconvenient if 
a circuit board had been etched to suit 
the initial choice of addresses. 

In the psychology department shop, 
we build these I/O expansion boards on 
a perforated prototyping board. Radio 
Shack stores sell one of these (part 
number 276-152) that has a 44-contact 
edge connector identical to the AIM 
65's 'expansion' connector. By wiring 
the address, data, and control bus 
signals to the appropriate contacts 
when the I/O expansion board is being 
built (following the assignments on the 
AIM 65 connector), the board can be 
made to connect directly to the AIM 65 
expansion connector with a simple 
parallel-bus connector made from two 
44-contact edge connectors (like the 
EDAC 307-044-500-202) and a short 
length of ribbon cable. This cable 
should be kept shorter than six inches, 
or some degradation of the unbuffered 
bus signals may occur. 

Many of the AIM 65 systems in use 
here are built around a five-slot card 
cage made for the KIM/SYM/AIM bus 
by Microtechnology Unlimited. The 
bus connector of this card cage is 
designed for the memory expansion, 
video display and disk controller boards 
made for these computers by this com- 
pany. The I/O expansion board fits 
handily into one of the slots in these 
systems, saving the rather tedious 
fabrication of a cable-type connector. 



A second connector is required to 
carry the port bits and control lines to 
the devices that interface with the VIAs 
on the I/O expansion board. For this 
purpose we use a 50-contact wire- wrap- 
style ribbon cable connector, such as 
the ALPHA FCC-152-50. The 32-port 
bits and eight control lines from the 
two VIAs are wrapped to contacts on 
this connector, which mounts into a 
row of holes near the free edge of the 
prototype board. The loads or data in- 
puts are connected to a ribbon cable 
terminated with a mating connector 
(ALPHA FCC-120-50) which can be 
plugged into the one on the I/O expan- 
sion board. 

Several of our AIM 65 systems use 
an I/O card cage of local design which 
has this ribbon cable crossing the back 
of the chassis as a port-bit bus. Cards 
plugged into this chassis mate with 
card-edge connectors (ALPHA FCC- 
171-50) that are pressed onto the ribbon 
cable. Some of these cards carry load 
drivers like power Darlington tran- 
sistors or optically-coupled triacs for 
the control of external devices. Other 



Figure 4: VIA Connections 
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cards contain switch debouncing cir- 
cuits for the input of switch-closure 
response data, or custom devices that 
require connection to I/O port space or 
control lines. With the advantages of 
expanded I/O capacity and modularly 
interchangeable I/O hardware, our 
AIM 65 computers have become power- 
ful and flexible experiment controllers. 

Conclusions 

The I/O expansion project described 
in this article was undertaken as a sim- 
ple, quick and inexpensive solution to 



the demand for increased I/O capacity. 
Some care must be taken by ambitious 
readers who desire a much more sub- 
stantial addition to the I/O capabilities 
of their computers. The device described 
above should not be significantly ex- 
panded without some redesigning of 
the circuits. 

Gary Finley is a member of the staff of the 
Psychology Department of the University 
of Alberta. He works in microcomputer 
software development and the design of 
custom peripheral hardware for both 
microcomputers and minicomputers. 
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"NIBBLE IS TERRIFIC" 

(Fop Your Apple) 




NIBBLE 18: The Reference for Apple computing! 

MBBLE IS: One of the Fastest Growing Magazines in 
the Personal Computing Field. 

NIBBLE IS: Providing Comprehensive, Useful and 
Instructive Programs for the Home, Small Business, and 
Entertainment. 

NIBBLE IS: A Reference to Graphics, Games, Systems 
Programming Tips, Product News and Reviews, Hardware 
Construction Projects, and a host of other features. 

| NBBLE 18: A magazine suitable for both the Beginner and 
the Advanced Programmer. 

Each issue of NIBBLE features significant new Programs of Commercial Quality. Here's 
what some of our Readers say: 



- "Certainly the best magazine on the Apple II" 

- "Programs remarkably easy to enter" 

- "Stimulating and Informative; So much so that this is the first computer magazine I've 
subscribed to!" 

- "Impressed with the quality and content." 

- "NIBBLE IS TERRIFIC!" 



In coming issues, look for: 

O Stocks and Commodities Charting □ Assembly Language Programming Column 

□ Pascal Programming Column □ Data Base Programs for Home and Business 
D Personal Investment Analysis Li Electronic Secretary for Time Management 

□ The GIZMO Business Simulation Game 

And many many more! 

NIBBLE is focused completely 
on the Apple Computer systems. 

Buy NIBBLE through your local 
Apple Dealer or subscribe now with 
the coupon below. 
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FOR YOUR APPLE II 

Industry standard products at super saver discount prices 



PARALLEL PRINTERS 

C-ITOH 8510 PRINTER Virtually identical to 
the NEC 8023. Same electro-mechanical 
internals. The only difference is the name 
and the price. Specifications: • 100 CPS 
dot matrix printer • 80 column print- 136 
characters per line • Tractor/friction feed 
7 different print fonts included • 2K printer 
buffer • Proportional spacing • Bit image 
graphics and graphic symbols. 

NEC & C-ITOH List: $800 

Special Price with any other purchase $595 

EPSON 100 PRINTER $749 




Z-80 CARDS FOR YOUR APPLE 

MICROSOFT S0FTCARD. With CP/M* & MBASIC. 

(List: $399) .... $289 

jl&tl' ADVANCED LOGIC SYSTEM Z-CARD. With C/PM \ 

Has everything the Soflcard has except MBASIC. Works with 
Microsoft's disks too. 

(List: $269) ....$209 



NE W- U-Z-80 PROCESSOR BOARD (from Europe) 

Software compatible with Softcard and 

ALS Software (List: $199) ....$149 

With CP/M* add: (List: $75) $49 



tfftf ALS SYNERGIZER. CP/M® operating package with an 
80 column video board, CP/M" interface, and 16K memory 
expansion for Apple II. Permits use of the full range of CP/M® 
software on Apple II and Apple III. 

(List: $749) ....$595 




80 COLUMN VIDEO DISPLAYS 
FOR APPLE II 

SMARTERM. 

(Not to be confused with SUPRTERM) 

Software switching from 80 to 40 and 40 to 80 characters. 9 new 
characters not found on the Apple keyboard. Fully compatible with 
CP/M * and Apple PASCAL*. With lowest power consumption of only 
2.5 watts. 

(List: $360) ....$279 



SMARTERM EXPANDED CHARACTER SET. 

7"x 1 1 " matrix with true decenders. 



Add to above: $40 



VIDEX-80 $279 

WIZARD $269 

MONITORS FOR YOUR APPLE 

AMDEX 300G $229 

SUPER SPECIALS! 

12" GREEN MONITOR $139 

12" BLACK & WHITE MONITOR $125 



All equipment shipped factory fresh. Manufacturers' warranties included. 
Please add $3.00 per product for shipping and handling. California: add 
6% tax; BART Counties: 6Vi%. 



EXPAND YOUR APPLE II MEMORY 

16K MEMORY EXPANSION MODULE. The preferred 16K RAM 
Expansion Module from PROMETHEUS. Fully compatible with CP/M * 
and Apple Pascal*. With full 1 -year parts and labor warranty. 

(List: $169) $99 

MEMORY MANAGEMENT SYSTEM. Provides more free memory in 
BASIC by moving DOS into 16K card. 

(List: $49) $35 

16K RAM ADD-ON KITS. Eight 16K full specification RAMS. 

Reduced to $19 

SATURN SYSTEMS 32K RAM CARD $1 99 





VERSAcard 
from PROMETHEUS 



Four cards on one! With true simultaneous 
operation. Includes: (1) Serial Input/Output Interface, 
(2) Parallel Output Interface, (3) Precision Clock/Calendar, and (4) BSR 
Control. All on one card. Fully compatible with CP/M» and 
Apple Pascal*. 

(List: $249) ....$195 



JOYSTICK 

•O \ Takes the place of two Apple Paddle Controllers. 
• • _^J^ From BMP Enterprises. Heavy duty industrial 

construction and cable. Non-self centering. With 
polarity switches for consistent motion control. 

(List: $59) $39 

MODEMS FOR YOUR APPLE II 

HAYS Smartmodem $229 

NOVATION Apple Cat $349 

CENTRONICS COMPATIBLE PARALLEL INTERFACE 

Look out Grappler! From PROMETHEUS. For use with 
•JEW! Epson, NEC, C-ITOH, and other printers. Fully compatible 
with CP/M* and Apple Pascal®. 

Only $69 

With Screen Dump Graphics for EPSON printer, add . . . $25 



Phone for Quick 

Shipment! 
C41S) 490-3420 




"The matt order specialists" 
342 Quartz Circle, Livermore, CA 94550 
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MICRO POST, INC. / Miq^\ 

"MORE THAN JUST I $§|^ 

ANOTHER PRETTY PRICE" V> r y 



THE NEWEST AND MOST POPULAR SOFTWARE AND HARDWARE FOR THE APPLE COMPUTER 

Basic Mailer $59.45 

Magic Spell $59.45 



Games 

SIRIUS SOFTWARE INC. 

Beer Run $25.45 

Borg $25.45 

Dark Foresl $25.45 

Epoch $29.70 

Foosball $25.45 

Gamma Goblins $25.45 

Gorgon $33.95 

Hadron $29.70 

Jellyfish $25.45 

Kabul Spy $25.45 

Minotaur $25 45 

Orbitron $25.45 

Oulposl $25.45 

Snake Byte $25.45 

Sneakers $25 45 

Space Eggs $25.45 

Twerps $25.45 

BR0DERBUND 

Apple Panic $25 45 

Davids Midnight Magic $29.70 

Galactic Empire $21 20 

Galactic Revolution $21 20 

Galactic Trader $21 .20 

Galaxy Wars $21 20 

Red Alert $25.45 

Space Quarks $25.45 

ON-LINE SYSTEMS 

Cranston Manor $29.70 

Crossfire $25.45 

Hi-Res Cribbage $21 .20 

Hi-Res Football $33.95 

Hi-Res Soccer $25.45 

Jawbreaker $25.45 

Marauder $29 70 

Missile Defense $25.45 

Mouskattack $33.95 

Mystery House $21 .20 

Pegasus II $25.45 

Sabotage $21.20 

Threshold $33.95 

The Wizard and the Princess $28.00 

BUDGECO 

Raster Blaster $25.45 

CAVALIER COMPUTING 

Bug Attack $25 45 

Asteroid Field $21.20 

Star Thief $25.45 

MUSE 

ABM $21.20 

Castle Wolfenstein $25.45 

Robotwar $33.95 

FAST! FRIENDLY! RELIABLE! 

Call 24 hours a day: 

Outside California 800-227-1617 
Inside California 800-772-3545 
ASK FOR EXT. "637" 

Apple is a trademark ol Apple computer Atail is a 
trademark ol Atari inc IBM is a trademark ol International 
Business Machines TRS-80 is a trademark ot the TanOy 
Corporation 



ROCKROY INC 

Conglomerates Collide $33.95 

DAKIN5 

Dragon Fire $50.95 

Kaves of Karkham $42.45 

Rings of Saturn $33.95 

Alkemstone $33.95 

Neutrons $25 45 

New Products!!! 

The JOYPORT is an input device for the 
Apple computer by Sirius Software. Inc. It 
allows selection of two Apple compatible 
paddles or two Atari-type joysticks without 
opening the Apple case. A complimentary 
copy of Foosball is included. 

Now available from VISUAL PRODUCTION 
SYSTEMS - a system to create color slides 
m minutes for less than $3,500 This total 
package for an existing 48K Apple com- 
puter with two disk drives and a graphics 
tablet includes software and a reproduction 
module (motor-driven camera included!) 
Write to us for additional information and 
brochure. 

Business 



PERSONAL SOFTWARE 

VisiCalc $170.00 

VisiDex $170.00 

VisiFile $212.50 

VisiPlot $15300 

VisiTerm $127 45 

VisiTrend/VisiPlot $221 .00 

DeskTop/Planll $1 70.00 

STONEWARE 

D B Mast er $195.45 

Utilities 

ON-LINE SYSTEMS 

Expediter II $84.95 

Lisa 2.5 $67 95 

Lisa Educational Pak $101 95 



MMSII 

Speed/ASM 

SIRIUS SOFTWARE, 

Audex 

E-Z Draw 

Pascal Graphics Editor (PGE) 



INC. 



$42.45 
$33.95 

$25.45 
$42.45 
$84.95 



Hardware 



HOWARD SOFTWARE 

Creative Financing $127.50 

Real Estate Analyzer $127.50 

Tax Preparer $127.50 

SOFTWARE PUBLISHING CORP 

Personal Filing System $80.75 

PFS-Report $80 75 

ARTSCI 

Magic Window $84.95 

Call for information concerning our Atari, IBM, and TRS-80 product lines 



T G PRODUCTS 

T G Joystick $50.00 

T G Paddles $33.00 

ATARI 

Atari Joysticks $ 8.40 

THE KEYBOARD COMPANY 

Joystick II $42.45 

Hand Controllers $25.45 

SIRIUS SOFTWARE INC. 

The JOYPORT $63.00 




ORDER/REQUEST FORM 



MP2 



Name- 



Address - 



City. 



State - 



Zip. 



Phone J 



Product 


Qty 


Cost 






































Sub Total 




CA Residents Add 6% Tax 




Shipping/Handling 


$2 00 


TOTAL 





Payment 

□ Personal Check 

□ Cashiers Check/Money Order 

□ Visa D Mastercard 



Card #. 



Signature . 



MAIL TO: MICRO POST 



LJ Add my name to your mailing list. 

NOTECashier's Check or Money Order will 
greatly expedite your order 

P.O. BOX 898 • ORINDA, CA • 94563 



J 
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Boolean Algebra 



Boolean Algebra is the science of True and False. If statement A is True and statement B is False, then the statement 
"A AND B" must be False, because one of the component statements is False. However, the statement "A OR B" would 
be True, since only one of the components needs to be True. In high level programming, a typical Boolean statement 
would be, "IF Q P and P = R-5 THEN...." Both of the component statements have to be True for the statements 
immediately after the THEN to be executed. If the AND is replaced with OR, then only one of the statements needs to be 
True. 

Assembly language programming relies a great deal on Boolean Algebra, too. Each bit position in a binary number 
may contain only a 1 ( = True) or a ( = False). When a Boolean operator acts on a pair of numbers, the values for bit in 
each are compared to determine the value for bit in the result, and so on for all the bits in the two numbers. The 6809 
has a COMplement instruction, which is equivalent to the Boolean NOT, and both the 6502 and 6809 have AND, OR, and 
EOR instructions. 

These functions also apply to digital circuitry. Circuit elements called "gates" compare two or more signals to arrive 
at a single resulting signal. Usually + 5 VDC is considered "True" and VDC is considered "False." So, if an OR gate 
receives V on one input and + 5 V on the other, the output is + 5 V. An AND gate with the same inputs would produce a 
V output. 



I 







AND 





Description: If both statements are True (bit = 1), then 
the result is True. Otherwise, the result is False. 

ML Application: ANDing a non-standard character 
code (such as for reverse field on the PET or Apple) 
with 01 1 1 1111 will usually return the ASCII value. 



Description: Returns a True value if either statement 
or both statements are True (bit = 1). 

ML Application: Use to make sure a particular bit is 
set. ORing a character code with 1 000 0000 will return 
the same code, except with bit 7 always set. 



Syntax: 



A AND B, 
A X B 
A A B 



A • B, AB 



A n B 



Syntax: 



A OR B 
A + B 

A V B, 



A U B 



Examp 


A 


B 


A ORB 




True 
True 
False 
False 


True 
False 
True 
False 


True 
False 
False 
False 




A 


B 


A AND B 




1 
1 




1 

1 



1 







e: 

AND 


1011 0110 
0111 0000 










0011 0000 







A 


B 


A AND B 






True 
True 
False 
False 


True 
False 
True 
False 


True 
True 
True 
False 






A 


B A OR B 






1 
1 




1 

1 



1 
1 
1 





Examf 


>le: 

OR 


1011 0110 
0111 0000 






1111 0110 








NOT 



Description: If a statement is True (bit = 1), NOT will return False (bit = 0), and 
Wee versa. 

ML Application: This can be accomplished with the 6502 using an XOR with 
1111 1111 ($FF). 



NOT A 



NOT A 




Syntax: 


NOT A 




A 
A' 
A A, 'A 













Example: 


True 


False 




1 







False 


True 







1 


A = 1011 0110 
NOT A = 0100 1001 



AMCftO 



DATA SHEET #2 







£J3S 



Description: Exclusive Or returns True if either statement is True, but not if 
both are True. 

ML Application: A number XORed with 0100 0000 will result in the same 
number with bit 6 toggled; i.e., =1 if it was originally 0, and =0 if it was 1. 



Syntax: 



A XOR B, 
A® B 



AEOR B 



Example: 



XOR 




1011 0110 
0111 0000 

1100 0110 



A 


B 


AXORB 


True 


True 


False 


True 


False 


True 


False 


True 


True 


False 


False 


False 



A 


B 


AXORB 


1 


1 





1 





1 





1 


1 
















Description: The result is True only if both statements 
are False (bit = 0). 

Application: This function is applied more in elec- 
tronics than in programming. 



Syntax: 
Equivalent: 



A NOR B A + B 
NOT(A OR B) 



A*B 



B 



Example: 



NOR 



1011 0110 
0111 0000 
0000 1001 



ANORB 



True 


True 


False 


True 


False 


False 


False 


True 


False 


False 


False 


True 


A 


B 


A NOR B 


1 


1 





1 











1 











1 




Description: If either statement is False (bit = 0), then 
the result is True. 

Application: This is used more in electronics than in 
programming. In fact most early logic used only 
NAND gates and inverters (NOT). 



Syntax: 
Equivalent: 




Example: 



A NAND B AB 

NOT(AAND B) 
NOT A OR NOT B 



A t B 



B 



A NAND B 



True 


True 


False 


True 


False 


True 


False 


True 


True 


False 


False 


True 



A 


B 


A NAND B 


1 


1 





1 





1 





1 


1 








1 



1011 0110 
NAND 0111 0000 

1100 1111 



A B 



Summary Table 

AND OR XOR NAND 



NOR 



1 1 


1 


1 











1 





1 


1 


1 





1 





1 


1 


1 

















1 


1 
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DATA SHEET #2 



FOCUS 



ON THE 6809 MICRO 
WORTH SWITCHING FOR 



FOCUS ... onus 

SUPERIOR HARDWARE 



6809E Microprocessor provides 8-bit economy with 16-bit 

capabilities, position independent code and many advanced 

features 

Commercial quality Keyboard with full UPPER/lower case 

ASCII, numeric keypad and cursor control keys 

Two double sided, double density mini diskettes 

with 640K bytes of IBM compatible storage 

Full Video with programmable screen formats, bit mapped 

graphics, user definable character sets, reverse video and 

hardware scrolling, plus a light pen interface 

Full Communications support for RS-232 at 50 to 19.2K 

baud with programmable data formats 

Built-in I/O Drivers include 6 parallel I/O ports, 3 serial I/O 

ports, 6 timers/counters, 20 mA current loop, and a 

programmable cassette interface 



FOCUS ... onus 

EXTRAORDINARY SOFTWARE 



Choice of two 'Universal' 6809 Disk Operating Systems 
supported by many companies: FLEX ™ or OS-9™ 

Extended Floating Point Disk BASIC 

Interpreted and Compiled 
Text Editor and Macro Assembler 
Full feature MicroMon debugging monitor 
Built-in Word Processor 



FOCUS ... onus 

VERSATILE EXPANDABILITY 



IEEE-488 Bus Controller option for instrumentation 

Supports multiple 8" diskette drives 

PASCAL, FORTH and other high level programming 

languages are available 

Complete Application Packages are available from many 

software sources 

Add-on Hardware includes: Date/Time, Opto-lsolators, 

Stepper-Motor Controller, AID and D/A, RAM and EPROM 

Memory, and others from several manufacturers 



FOCUS ... ON YOUR 
APPLICATION REQUIREMENTS 



FOCUS provides a completely Integrated system of 
hardware and software, so that you can concentrate on 
your application requirements 



THIS IS 

FOCUS 




$*49S°° 

Very CompIete 

See us at the West Coast Computer Faire 
Booths #1629 and #1631 
March 19-21 



® 



34 Chelmsford Street 

Chelmsford, MA 01824 

Phone: 617/256-3649 Telex: 955318 INTL DIV 



Licensing arrangement for FLEX and OS-9 pending. Please contact The COMPUTERIST, Inc. for further details. 



' 



Get more out of your Apple 

with the MICRO on the Apple series. 



volume 2- 

just released! 

You liked Volume 1— You'll love 
Volume 2! 

More than 40 new programs on 
diskette to help you get more from your 
Apple: 

• Machine Language Aids 

• I/O Enhancements 

• Runtime Utilities 

• Graphics and Games 

• Hardware and Reference Infor- 
mation 

MICRO'S new book for Apple users 
lets you: 

1. Speed up machine language pro- 
gramming using 5 powerful machine 
language aids. 

2. Add additional editing and 
input/output features at no cost! 

3. Enhance the capabilities of 
Applesoft and Integer BASIC to in- 
clude sorting, print using, and MORE. 

4. Use your high-resolution graph- 
ics to plot graphs and display 
"compressed" pictures. 

5. Add an interesting hardware proj- 
ect to your Apple. 

6. Play the intriguing game "Galacti- 
Cube"— 

And much, much more! 

31 choice articles 

46 tested programs on diskette 

(13 sector DOS 3.2 format) 

Buy MICRO on the Apple 2 at your 
local computer store 

or 
Call 1-800-227-1617, ext 564 TOLL 

FREE (in CA, 1-800-772-3545, ext 
564) and charge it to your Mastercard 
or VISA 

or 
Send check for $24.95 plus $2.00 
surface or $5.00 air shipping to: 

MICRO, DepL MI 

RO. Box 6502 

Chelmsford, MA 01824 

Volume 1 also available at $24. 95. To- 
gether MICRO on the Apple 1 & 2 

provide more than 60 programs on 
diskette for less than $1 .00 each. No 
need to type in hundreds of lines of code. 



4MCRO 

on the Apple 



Volume- 



INCLUDES 
DISKETTE 




Please allow 4-6 weeks for surface mail delivery. 
Massachusetts residents add 5% sales tax. 
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/AlCftO 



p 



It's All 1 's and O's 



IC 



Much of this month's recreational page 
consists of exercises in Boolean alge- 
bra. To learn more about Boolean 
algebra, consult this month's Tech- 
nical Data Sheet (pages 121-122) and 
Marvin De Jong's article "Beginning 
Boolean: A Brief Introduction to 
Boolean Algebra for Computerists" 
(MICRO 22:29). 



Andrew Mossberg of North Miami 
Beach, Florida, sent in this list of secret 
machine instructions: 



c 
c 
c 

o 

e 

•-> 

c 
c 
f-> 
c 
t-< 
.c 

o 

1-4 

c 
c 



c 
c 



Each column represents the truth 
table for one of the simple Boolean 
operators (AND, OR, XOR, NAND, 
NOR). Fill in the missing l's and O's 
and name the functions. See technical 
data sheet (page 122) for answers. 



Function 



A B 

1 1 

1 

1 





□ 1 □ i 

□ o D i D 

□ D o □ i 
o i □ l □ 



ah 


Scatter Deck 


BAH 


Branch And Hang 


BBBF 


Branch on Bit Bucket Full 


BCF 


Branch on Chip box Full 


BF 


Blow Fuses 


BOHP 


Bribe Operator for Higher 




Priority 


BSST 


Backspace and Stretch Tape 


CUN 


Cancel all User Numbers 


EMW 


Emulate Maytag Washer 


ERD 


Eject Removable Disk 


EXOI 


EXecute Operator Immediately 


IA 


Illogical And 


KCE 


Kill Consultant on Error 


MST 


Mount Scotch Tape 


MVLR 


MoVe and Lose Record 


PDM 


Play Drum Memory 


PLSC 


Perform Light Show on 




Console 


PS 


Print and Smear 


RBP 


Read Print and Blush 


RCASD 


Read Card And Scramble 




Data 


RFSC 


Read Feed and Shred Card 


RIG 


Read Inter-record Gap 


RSD 


Read and Shuffle Deck 


RWRT 


Read While Ripping Tape 


SD 


Scatter Deck 


SPD 


SPin dry Disk 


SSD 


Seek and Scar Disk 


UER 


Update and Erase Record 



o 



Harold Mathias of Southfield, 
Michigan, sent us this limerick: 

A MICRO subscriber named Tweed 

Taught his microcomputer to read. 

Now the damn machine 2 

Won 't give up the magazine <3, 

Though he does beg and plead. g 



Border 

Rules and Hints: Combine the eight 
bits preceding each alphabetic separa- 
tor with the eight bits following the 
separator to form a single 8-bit logical 
result which represents one ASCII char- 
acter. The alphabetic separators stand 
for the following logical operations: 
a = AND, o = OR, x = Exclusive OR, 
na = NAND, and no = NOR. For exam- 
ple: llOlOHOaOlOlllOO would AND 
the two values and get as a result 
01010100, which is the ASCII code for 
the letter T. To make life easy, this 
month's message starts in the upper 
left corner. The / does not count for 
anything. It simply separates the in- 
dividual values. 

For answers to Border and Circuit 
puzzles, see page 103. 



o 

i— 

r-> 
X 

I— 

| 

3 

o 

f 

8 

I— 1 

o 



c 

.-J 

c 



Circuit Puzzle 



s 




What is the result if inputs A, B, C, and D are all l's? All O's? 

How many of the 16 possible input combinations result in an output (E) of 0? 

[Hint: Set up a table with the inputs, intermediate results, and final result in separate columns.) 



o 



o 
5 

5 



O 

o 

I— ■ 

o 
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EacHing, new games mieraciive language f| _ 



VIC 



games interactive language 
- Easy 10 learn with 60 powerful command* 

• DouDle density graphics, largo number display. 

• 9 complete programs including Breakout. SpaceWai. Anti UFO. M*« 

• PEHCBM version lor OLCNEVVM ROMs and 8K o< memofy 

• VIC version has color and enhanced sound ireq 3K memory e*oander) 

• Comprehensive 50 page manual US4CANADA 
VIGIL lor PET'VlC w'9 gameB on cassette (diskette add S3 OOi S3S 
VIGIL User's Manual (relundaDle with soltwaro order) SiO 
VIGIL I nterpreter Listing 1650? Assembler Language) 52S 

Tiny basic compiler - pet 

A true compiler that turns your BASIC program into last machine code 

• Subset Ol PET BASIC compiles to 6502 machine code Beg only BK memory 

• Has lull Moating point capabilities and functions 

• Compiler listing available with 16K version (included) 
» Cfln toad compiled machine code anywhere in memory 

. Oncasselte(ad0$300lord.sl.elie) U S * CANADA POAElGN 

TINV Basic Compiler OLD<NEW'4.0 ROMS/8032 with 8K memory $25 $30 

TINY Basic User's Manual (relundabie with soliware orderi $ 5 $ ' 



PET/CBM 




PET 4 APPLE II USERS TlNY PASCAL 

ctureo language alternative to BASIC lor PET or APPLE « includes 
LINE EOITOP creates. modiliOJ and maintains source language 
COMPILER converts your source to an executable P code tormai 
INTERPRETER ■ e«ocuies compiled P-codo Features built m TRACE 
CASE OF. WHILE-OO. IF THENELSE. REPEATUNTIL. FOP TOUOWNTO PROC. FUNC 
Graph'CS version has more GRAPHICS. PLOT POINT TEXT INKEY. ABS SQR 
APPLE u has lo-es & hi-esCOLOR HGRAPHICS MCOLOR HPLOT. PDL and TONE 

US & CANADA FOREIGN 
f Pascal PLUS GRAPHICS PET 32k NEW/4 0POMSf8032(d.stiette $50 $55 

f Pascal PLUS GRAPHICS PET 32K NEW/4 ROMS>8032/c;isseiie $55 $60 

f Pascal PLUS GRAPHICS APPLE II 4BK and DOS 3 2'3 3 $50 $55 

f Pascal NONGRAPMlCS PET !6tC32*\ NEW* ROMS disKeite $35 $40 

I Pascal NON GRAPHICS PET i6K*32K NEW/4 ROMS cassette $40 $45 

' Pascal user s Manual (refundable with soliware orde'l S>0 Si2 

f Pascal 6502 interpreter LislmgGRAPHtCS version $25 $30 



PIPER-THE MUSIC MACHINE 

Here's the simplest way yet to compose, conduct and play music on your VIC/PET 
Complete music capability — play all note values, list and edit your music, 
easily handles repeats and rests Wrtiten m last machine language. Includes 
sample compositions and manual VIC version does not require additional memofy 
PET version requires external CB2 speaker 

US & CANADA FOREIGN 

PiPERoi PET/viConcassette(add$3.00tordiskeile) $25 $30 

PIPER User's Manual (refundable with sottware order) S5 $7 

PIPER 6502 Assembly Listing . 525 S30 



PET MACHINE LANGUAGE GUIDE 

Now m its ninth printing Learn the hidden talenis ol your OLD, NEW or 4.0 ROM 
PET/CBM with mis easy to follow manual Details 30 ol the PET s builtm routines. 

U.S & CANADA FOREIGN 
PET MACHINE LAGUAGE GUIDE for OLD. NEW or 4 ROMS S9 . *11 



Orders prepaid in U.S. Dollars. VISA, MC, ACCESS, etc. Prices Include postage. 



M 





A STATISTICAL ANALYSIS 

AND FILE MAINTENANCE SYSTEM 

FOR THE APPLE II™ MICROCOMPUTER 

As a Subset Language of P-STAT™ 78... 
A-STAT™ 79 computes: 

FREQUENCIES 

BI-VARIATE TABLES • CHI SQUARES 

CORRELATION MATRICES 

MULTIPLE REQRESSION 

RESIDUALS 

APPLE PLOT INTERFACE 

APPLE FILE CABINET INTERFACE 

FILE SORT 

AGGREGATION 

REPORT WRITING 

COMPLETE TRANSFORMATION LANGUAGE 

READS VISICALC FILES 

A-STAT™ 79 

Uses Standard DOS Text File and EXEC'S 
48K Version — All programs in Applesoft" 11 

A-STAT™ 79 is available from: 

ROSEN GRANDON ASSOCIATES 

7807 Whittler Street 

Tampa, Florida 33617 

(813)985-4911 

A-STAT™ 79 on disk with 80-page manual... $145.00 

Apple II ,m is a trademark ol Ihe Apple Computer Inc. 
P-STAT lm 78 Is a Irademark ol P-STAT Inc.. Princeton. N.J. 
A-STAT lm 79 is copyrighted by Gary M. Grandon. PhD 




cosmos 



Hi-Res Graphics+Text 




Lo-Res Graphics+Text 



CREEN 




MIXER 




SCREEN MIXER is a set of three modules for APPLE-II. 
Just plug-in these modules to your Apple-II, and you will 
have the Apple-II with more features you could not expect 
till now 

SCREEN MIXER provides: 

• The mixed screen of any two of screens available for the 
Apple -IX Please note that all of HGR, LGR and Text screen 
has two pages. The mixing is done with hardware, not like 
Hi-Res Text Generater Programs, thus you need no software 
and the scroll speed is not reduced. Also, you can scroll 
the text without any effect to the graphic patterns. 

#The Double Density High Resolution Graphics. Yes, you 
can plot 580 dots in one line. You have only 280 dots in one 
line on ordinary Apple-II, (Software is required) 

• One of the most advanced character display. Besides 
Normal and Inverse characters which are already built-in 
you will have the choice of Half-Intensity and Hilighted cha- 
racters. And more, you may Over-Write or Over-Type any 
character to other character if you want to do so! 

(Software is included) 




SnO lntroductor V Price 

" Offer ends Apr. 31, '82 

cosmos 



$50 



Highlight 



NORMAL 

HALF 
INTENSITY 



Half Intensity 




Over W rite 



Dealers inquiries invited. 

For more information call or write to ASTAR INTERNATIONAL CO, 

5676 FRANCIS AVE., CHINO, CA 91710 Phone 714-627-9887 

Apple-II is a registered trademark of Apple Computer Inc. 
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Next Month in MICR 



1 



6809 Feature 

Our April issue will cover 6502 to 6809 
program translation, the FLEX operating 
system, and enhancements to Percom Data's 
CBUG monitor for the Radio Shack Color 
Computer. The PET Vet column will cover the 
role of the 6809 in the SuperPET. And, our new 
review department will make its debut with a 
concentration on 6809 products. 

PLUS... 

• A Single Drive Copier in BASIC — Here's 
a versatile disk copying program for OSI 
C2-4P and C4P-MF systems. 

• Applesoft Array Dump — This handy 
debugging utility presents a "dump" of 
current variable array values for Applesoft in 
ROM. 

• AIM User Device Arbiter — Expand the 
AIM'S user input and output ports. Up to 83 
devices each with the User Device Arbiter. 



A Real Tape Operating System — Learn 
how to get the most out of your PET 
cassette system, in terms of convenience 
and reliability. 

7SEG — PET Giant Character Set — Use 

this routine to display alpha-numeric 
characters in a large, seven-segment display 
on the screen. 

Programmable Reverse Video for the C1P 

— This article provides instructions for 
adding 100% programmable reverse video, 
character by character. It also offers 
programming hints for highlighting your 
graphics listings or games. 

Integer Cross- Reference Utilities — This 
article and the accompanying program 
confront the task of generating a complete 
cross-reference table for Apple Integer 
BASIC programs. 



20% OFF 

Your money goes farther when you sub- 
scribe. During the course of a year, when you 
subscribe, you save 20% (in the U.S.). 

Pay only $24.00 ($2.00 a copy) for 12 monthly 
issues of MICRO sent directly to your home or 
office in the U.S. 



More MICRO for Less Money 
When You Subscribe 

But on the newsstand — if you can locate the 
issue you want — you pay $30.00 a year ($2.50 
a copy). 

Special Offer — Subscribe for 2 years ($42.00) 
and get 30% off the single issue price. 

Subscribe to MICRO today. 



MICRO 

34 Chelmsford Street 
P.O. Box 6502 
Chelmsford, MA 01824 

Please send me MICRO for 1 year 2 years 

NOTE: Airmail subscriptions accepted for 1 year only. 



Subscription Rates Effective January 1, 1982 
Country Rate 



Check enclosed $_ 
Charge my 

No. 



VISA account 
Mastercard account 



Expiration date 
Name 



United States 

Foreign surface mail 

Europe (air) 

Mexico, Central America. Mid East, 

N. & C. Africa 
South Am., S. Afr., Far East, 

Australasia, New Zealand 



$24.00 1 yr. 
42.00 2 yr. 
27.00 
42.00 

48.00 

72.00 



* Airmail subscriptions accepted for only 1 year. 
For U.S. and Canadian 2-year rates, multiply by 2. 



Address 



City/State. 



Zip 



Job Title: 



Type of Business/Industry: 
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The extended Basic for your Apple 




ALL YOU NEED TO EXTEND 
YOUR APPLESOFT BASIC. 

APPLE SPICE is a set of fast, 
assembly language routines that alleviate 
some of the drudgery of writing programs 
in Applesoft BASIC. APPLE SPICE allows 
you to concentrate more on your program 
logic and less on things like "prettifying" 
the screen and detecting keyboard entry 
errors. APPLE SPICE also greatly ex- 
pands Applesoft's capabilities by adding 
features found in many larger BASICs 
such as PRINT USING, STRING SEARCH 
(INSTR), IF-THEN-ELSE, and LINE INPUT. 

^Adventure 

\^&^ INTERNATIONAL 

A DIVISION OF SCOTT ADAMS. INC. 
80X 3435. LONGWOOD. FL 32750 • (305) 862-6917 



By: Corey Kosak & David Fox 



• Easy-Patch - No machine language knowledge 
Beginners can use it. 

• Excellent tutorial step by step manual. Written 
in easy to understand English. 

APPLE SPICE is not copy protected. You 
may include APPLE SPICE in your commercial 
programs without additional charge. Just men- 
tion you used APPLE SPICE on your title screen 
and in your documention. 

APPLE SPICE comes with a clearly written 
hands-on manual (52 pages) that explains every 
feature in detail. All of the examples listed in the 
manual are included on the APPLE SPICE 
diskette, as well as some user-friendly pro- 
grams that make it a snap to change APPLE 
SPICE'S parameters and to relocate APPLE 
SPICE to where YOU want it in memory. 



"Let your Apple II take care of the 
details so you can just program!" 



AVAILABLE FROM YOUR FAVORITE DEALER OR 
CALL TOLL FREE (800) 327-7172 

SHIPPING & HANDLING EXTRA, PRICES SUBJECT TO CHANGE 



HUNTINGTON COMPUTING 
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ONE OF THE WORLD'S LARGEST INVENTORIES 



1 1 



Great Grandma 
Huntington said: 

Always buy your computer 
media at a diskcount." 

...And boy, do we ever let you 
do that! 



DISKS for APPLE 

Elephant $24.99 box 

Maxell $36.99 box 

Verbatim Datalife . . .$28.99 box 
Dysan $49.99 box 




Software for Apple 



5 



Hodgepodge $17.99 

Utility City $26.49 

Bug Attack $26.89 

The Game Show $35.09 

Home Accountant $67.39 

Torax $22.39 

Volcanoes $44.49 



Midnight Magic $31.39 

Raster Blaster $25.39 

Castles of Darkness $31.39 

Tax Preparer $134.99 

General Manager $89.89 

Roach Hotel $31.39 



Neutrons $26.89 

Photar $26.89 

Soft 70 $44.99 

Time Zone $87.89 

The Dictionary $87.89 

LISA $67.89 

Suicide $26.29 



i Understand 
Yourself 

Six great programs to test 
yourself. Packed with infor- 
mation. An outstanding 
buy. (Apple" Jon disk. 

$24.99 



Z-Card $199. 

Kaga 12" Gr. Monitor . . .$199. 
PIE: Word Processor $99. 

(Specify version) 

Superscribe II $99. 

Paymar LCA $29. 

VisiCalc $149.00 

We Afeo Carry PET®, Atari®, and TRS-80® 

Call TO 1 1 -Free 800-344"5 106 (outside California) 
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Computer 


Almanac 


00 


• Biorhythms 




• Loan Amortization 


77 


• Weather Predictor 




• Calorie Counter 




• Much more on disk 


77 


for Apple ' 


69 


$24.99 



Post Office Box 1297 
Corcoran. California 93212 

Foreign Orders 209-992-4481 
In California 800-692-4146 



' We take MasterCard, American Express or VISA (Include card # and 

Apple- is a registered trademark oi Apple Computer, mc expiration date). California residents add 6% tax. Include $2.00 for postage. 

Foreign and hardware extra. Foreign: remit U.S. currency, use listed charge 
cards, or make direct wire transfers through Security Pacific Bank, Cor- 
coran, for a $6.00 charge. All overseas orders shipped by air. Send for free 
catalog. Pnces sub|ect to change without notice. 



Pel ■ is a registered trademark of Commodore 
TRS-80 ' is a registered trademark of Tandy Corp 
Atari * is a registered trademark of Atari, Inc. 



Outside Calif. 800-344-5106 



S 
9 
B 
9 
B 

I 

B 

I 


B 

Bl 
B 

B 

B 
Bl 

a 
o 

B 
SI 



